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1.0 PROGRAM DESCRIPTION 



The PRTC12-F program operates the TC12-F tape option which is pre- 
wired in the PDP-12 computer and allows the user to read and write 
in the forward direction DECtapes that have been formatted on the 
PDP-8, PDP-9 , PDP-10, or PDP-15 computers. The tape used on the 
PDP-12 is in LINC format and differs from other DECtapes in the 
following ways: 

a. Tape direction over the tape head is reversed. 

b. The polarity of the tape heads is reversed. 

c. Channels one and three are reversed. 

d. Data transfer has a different bit configuration. 
The following table is a 12-bit comparison of the 
two systems. 



LINCtape Format 
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e. The "mark track" on LINCtape is 4-bit oriented and on 
DECtape is 8-bit oriented. The TC12-F hardware has 
a special window register, but only the "block mark" 
(BM) is decoded. Data flags, bit shuffling, and the 
computation and verification of the checksum are all 
done with software. 

The PRTC12-F program is written in LAP6-DIAL 1 language and is 
filed on the DIAL tape with the name PRTC12-F. 

2.0 STARTING PROCEDURE 

PRTC12-F is started by the following procedure. 

a. Start the DIAL system (as described in the LAPS- 
DIAL Manual, DEC-12-SE2B-D) . (Be sure to wind 
sufficient tape on the takeup reels so that they 
are positioned at least three blocks beyond the 
end zone . ) 

b. Call the PRTC12-F program by the command 

LO PRTC12-F,n 

where n is the tape unit number from which the 
program will be loaded. Units 0-7 can be used. 



LAP6-DIAL is hereafter referred to as DIAL. 
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PRTC12-F occupies locations 3500 through 7712 and is nondestruc- 
tive. The program restarts automatically after completing an 
operation and may be restarted manually at any time at its start- 
ing address (4020). 



3.0 USING PRTC12-F 



After it is loaded, the program displays an introduction followed 
by three sets of questions for the user to define the operation. 



3.1 The first display is an introduction to the program as 
follows : 



LINCTAPE/DECTAPE CONVERSION PROGRAM 

THIS PROGRAM WILL RUN SUCCESSFULLY 

ONLY ON A PDP-12 COMPUTER EQUIPPED WITH THE 

TC12-F OPTION. IT WILL READ AND WRITE 

FROM TAPE UNITS 0-7 IN ANY TAPE 

FORMAT; YCU MUST SPECIFY THE CORRECT FORMAT. 

TYPE LINE FEED TO CONTINUE. 



Press the line feed or return key to display the second 
message . 



3.2 The READ questionnaire is displayed next. 



READ BLOCKS 

TAPE FORMAT UNIT 

STARTING WITH BLOCK 

FORMAT A — PDP-8 201 WORDS/BLOCK 
FORMAT B — PDP-12 400 WORDS/BLOCK 

FORMAT C ~ OTHER (PDP-9, 10, 15, WITH 600 12-BIT 
WORDS /BLOCK) 



Type in each value followed by a carriage return and then 
press line feed to advance to the next display. 



3.3 The WRITE questionnaire must be answered. 



WRITE THE RESULT 

IN TAPE FORMAT ON UNIT 

STARTING AT BLOCK 

FORMAT A — PDP-8 201 WORDS/BLOCK 
FORMAT B — PDP-12 400 WORDS /BLOCK 
FORMAT C — OTHER (PDP-9, 10, 15, WITH 600 12-BIT 
WORDS/BLOCK) 



Again, type the correct values, each followed by a carriage 
return. Press line feed when completed to display the last 
message. 
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3.4 Respond to the PARITY questionnaire: 

CHECK PARITY- 

0 SPECIFIES NO 

1 SPECIFIES YES 

Type 0 or 1 and press line feed. The requested operation 
is performed. (Be sure sufficient tape has been wound on 
the take-up reels before pressing line feed.) 

4.0 PROGRAM OPERATION 

4 . 1 Transfers 

There are nine possible combinations of data transfer referred to 
as MODOP 1 through 9, as defined in the TAPE FORMATS table below. 
The block packing column in the table describes all of the possible 
transfer configurations. 



Table 1 
TAPE FORMATS 



! 

MODOP 


Transfer 
Direction 


Number of 12 Bit 
Words/Block (Octal) 


Block Packing 
Arrangement 


1 

Maximum Num- 
ber of OctaJ 
Blocks Read 






READ 


WRITE 


READ 


WRITE 




1 


8 to 8 


201 


201 


1 


1 


2,000 


2 


8 to 12 


201 


201 


1 


1 


1,000 


3 


8 to N 


200 


600 


! 3 




! 2,000 


4 


12 to 8 


400 


200 


1 


2 


1,000 


5 


12 to 12 


400 


400 


1 


1 


1,000 


6 


12 to N 


400 


600 


3 


2 


1,000 


7 


N to 8 


600 


200 


1 


3 


750 


8 


N to 12 


600 


400 


2 


3 


520 


9 


N to N 


600 


600 


1 


1 


2,000 



N = PDP-9, PDP-10, PDP-15. 
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A PDP-8 to PDP-12 transfer is a block to block transfer; a i * warn' 
block of PDP-8 DECtape is written on a block of PDP-12 LJNCtape 
The PDP-12 LINCtape can have a 256 word block format or a 129 t 
block format. With the 256 word format, a block of PDP-8 DSCtap* 
is written in the first 129 locations of the LINCtape and the fws« 
127 words of the next DECtape block are written on the same 1. 1 NC' -n * 
block. This second DECtape block is written in its entirety w., 
in the first 129 locations of the second LINCtape block to m<iKt- * 
block to block transfer, as diagrammed. 



Block 1 



Block 2 



Block 3 



Block 4 



PDP-8 

to 
PDP-12 





J 


____ s 


— . 1 — 

y 




4 < 


* \ 





1 256 words | 



2 56 words 



256 words J 



Block 1 



Block 2 



Block 5 



For a PDP-12 to PDP-8 transfer, one 256 word LINCtape oioo 
written on two PDP-8 128 word blocks. 7777 is writtet for t ue 
129th (link) word in this case. 

With PDP-9, 10, and 15 to PDP-12 transfers, data does not fwt 
as illustrated. 



PDP-9, 10, Block 1 
15 



Block 2 



to 



| 600 


12-bit words j 600 12-bit words | 




/ s 


t > 


^— i — ri 




| 400 


words | 


400 words 




0 words | 



Block 1 



Block 2 



Block 3 



Note that transferring an odd number of PDP-9, 10, and L5 blocks 
will use an extra half PDP-12 block. Similarly, PDP-12 and PDP-8 
to PDP-9, 10, and 15 transfers may not completely fill the !i- t 
block with information. 



4.2 READ 



When the desired block is found, the line counter is initiaj 
ized. The control words that precede the data on tape are 
skipped. When a word from tape has been assembled in the tape 
AC register, the word flag is raised. The program checks the 
flag with the SWD instruction and the PC is incremented when 
it is set. Then the data is read into the AC with the TAC 



instruction, parity is computed and the data is shuffled and 
stored in memory. When the WCOUNT is incremented to 7777, it 
signifies that the complete block of data has been read and that 
the parity word is now in the AC. This is computed in the parity 
register (LPB) and, if the transfer was executed correctly, the 
resulting checksum (CS) should be 7777. If the operator had re- 
quested a parity check and the CS was incorrect, the block will 
be read again until a correct CS is obtained or until the operator 
intervenes. For PDP-12 transfers, the data is checked after it has 
been read or written. If an error is detected, the program will 
halt at location 6766. 

4.3 WRITE 

The transport is set in motion and a check is made to assure that 
its status is OK. If it is not OK, i.e., more than one unit is 
selected or the WRITE LOCK switch is on, a wait loop is entered 
until the necessary corrections are made. When the desired block 
is found and the transport is going forward, the program is trans- 
ferred to the write routine, DOUTIT. Two control words are skipped 
and then the writers are turned on with IOT 6152 and the approp- 
riate AC bits. The reverse checksum is written as 7777 after the 
third control word. Then data is read from memory, the parity 
word is generated, and the data is shuffled and transferred from 
the AC to the Tape Buffer Register with IOT 6154. When the WCOUNT 
reaches 7777, the parity word is shuffled and written on tape. 

4.4 Restrictions 



The PRTC12-F program has the following restrictions : 



a. Data is read and written only in the "forward" 
direction. 

b. Except for LINCtape. transfers, data is not 
checked after being' written on tape. 

c. The maximum number of blocks in one transfer 
is 2000. blocks. 
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GOING FORWARD 



GET ARGUMENTS AND 
SAVE THEM 




SELECT TRANSPORT 
GO BACKWARD 





SET FIRST BLOCK 
FOR NEXT GROUP. 
COMPUTE REMAINING 
NUMBER OF BLOCKS 
TO READ. 



NO DATA WD • 
<C 7777 




(WRITE DATA! 
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0001 
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/ U « in u 


A HANDLER FOR TC12-F 
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/t Apr 
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000 5 






/ 
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01 01 (51 7 






/ 
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/ 
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10 %) x ✓ 


(710(71171 
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i 0 




0012 


k? 0 1 6 


0000 




0 




0013 


0017 


0000 




0 




. 0014 


0020 


0641 




LDF 1 




0015 


0021 


7113 




JMP QAINIT 




.0016 


00 22 


3500 




TXTINTR0S3777 


/10 B .. ADDRESS PLUS DATA FIELD 


"0017 


0023 


3777 




3777 


/JUST * SAFE ADDRESS I 


002 0 


0024 


7166 




JMP QARFSH 




.002 1 










/LINE-FEED DURING JNTRO 


,0022 










/RETURNS PROGRAM TO HERE 


0023 






/ 






0024 






/ 






0025 






/ 






0026 






/ 






0027 


0025 


0643 




UDF 3 




0030 


0026 


7113 


QAREAD 


» JMP QAINIT 




'0031 


0027 


3274 




TXTRDE33777 


/10 BIT ADDRESS PLUS DATA FIELD 


ia io o (S 


0030 


3674 




ANSWR153777 




0033 


10 10 w X 


7166 




JMP QARFSH 




1C Iw o H 






/ 






0035 






/ 






0036 






/ 






0037 






/ 






0040 






/ 






0 0 4 1 






/ 












/ 






0043 


0032 


007 7 


UNREAD 


• SET I 17 


/ROUTINE TO GET NUMBER 


0044 


0033 


3674 




ANSWRU3777 


/QP BLOCKS TO BE TRANSFERRED 


0045 


0034 


0076 




SET I 16 




-.0046 


0035 


7773 


M4 i 


-4 


/4 NUM ANS 


0047 


0036 


0075 




SET I 15 




i 0050 


0037 


0110 




NUMBRS-1 


/ ANS ADD -1 


0051 


0040 


0073 




SET I 13 




0052 


0041 


6026 




JMP QAREAD 


/RETURN JMP 


,0053 


0042 


6222 




JMP GET 


/GET ANSWER} 


10054 


0043 


0470 




A2E I 


/IS RDENUM80? 


: 0055 


0044 


6026 




JMP QAREAD 


/YESj 


'0056 


0045 


3451 




APO 


/NOT ZERO! NEGATIVE? 


0057 


0046 


6026 




JMP QAREAD 


/YES| TRY AGAIN 


0060 


0047 


1134 




ADA I 14 


/ADD -2000 


,:0061 


0050 


0471 




APO I 


/TOO MANY? 


,0062 


0051 


6026 




JMP QAREAD 


/YES TRY AGAIN 


0063 


0052 


1134 




ADA I 14 


/ADD *2000 


0064 


0053 


4626 




STC RDENUM 


/NUM OF BLOCKS 


-0065 






/ 






0066 






/ 






0067 


0054 


0077 




SET I 17 


/ROUTINE TO GET TAPE UNIT NO, 


.0070 


0055 


7677 




ANSWR1S3777*4003 


0071 


0056 


0076 




SET I 16 




0072 


0057 


7776 




-1 


/l NUM ANS 


0073 


0060 


0075 




SET I 15 




0074 


0061 


0110 




NUMBRS-1 


/ANS ADD -1 


0075 


0062 


6222 




JMP GET 


/GET ANS 



0076 


0063 


4622 




STC ROEFU 


/UNIT 


0077 






/ 






0100 






/ 






0101 


0064 


0077 




SET I 17 


/ROUTINE TO GET STARTING BLOCK 


0102 


0065 


7700 




ANSWR1S3777+4004 


0103 


0066 


0076 




SET I 16 




0104 


0067 


7773 




-4 


/4 WORD ANS 


0105 


0070 


0075 




SET I 15 




0106 


0071 


0110 




NUM8RS-1 


/ANS ADD-1 


0107- 


0072 


6222 




JMP GET 


/GET ANS 


0110 


0073 


4625 




STC RDEBN 


/BLOCK NUM 


0111 






/ 






0112 






/ 






0113 


0074 


0077 




SET I 17 


/GET READ FORMAT 


0114 


0075 


7676 




3777SANSWR1*4002 


0115 


0076 
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SET I 16 




0116 


0077 


7776 




-1 


/l NUM ANS 


0117 


0100 


0075 




SET I 15 




0120 


0101 


0116 




CHARS-1 


/ANS ADO-1 


0121 


0102 


6222 




JMP GET 


/GET ANS 


0122 


0103 


1260 




Mill I 


/CONVERT TO MOOOP ADDRESS 


0123 


0104 


0003 




3 




0124 


0105 


1120 




ADA I 


/CHANGE RANGE 


0125 


0106 


7774 


M3i 


-3 


/FROM 3.6,9 TO 


0126 


0107 


4161 




STC MODOP 


/0.3,6 


0127 


0110 


6123 




JMP QAWRIT 


/GET NEXT FRAME 


0130 






/ 






0131 






/ 






0132 


0111 


7720 


NUMBRS , 


-57 


/NUMBER LIMITS 


0133 


0112 


0057 




♦ 57 


0134 


0113 


7710 




-67 




0135 


0114 


0067 
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0136 


0115 


5777 




-2000 




0137 


0116 


2000 




♦ 2000 




0140 


0117 
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0 


/CHAR LIMITS 


0141 
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0 




0142 
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7774 




-3 




0143 
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♦ 3 




0144 






/ 
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/ 






0146 


0123 
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JMP OAINIT 


/WRITE FRAME 
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/ 
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/ 
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SET I 17 
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ANSWR2S3777+1 
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0162 
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SET I 13 




0163 
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0164 
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0140 


4630 




STC WRIFu 
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/ 
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/ 
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0077 
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0264 


2626 




ADD RDENUM 


/NUM OF BLOCKS TO READ 


0331 


0265 


4634 




STC WRINUM 


/AND WRITE 


0332 


0266 


2313 




ADD M16 


/DO 16 AT A TIME 


0333 


0267 


1040 




STA 




0334 


0270 


2066 




RDLTAN ! 2000 




0335 


0271 


1040 




STA 




0336 


0272 


2037 




WDLTAN 5 2000 




0337 


0273 


1020 




LDA I 


/TOTAL WORDS PER BLOCK 


0340 


0274 


7576 




-201 




0341 


0275 


1040 




STA 




0342 


0276 


2070 




ROEKEY ! 2000 




0343 


0277 


1020 




LDA I 




0344 


0300 


7575 




-202 




0345 


0301 


1040 




STA 




0346 


0302 


2041 




WR I KE Y ! 2000 




0347 


0303 


6620 




JMP GO 


/DO THE JOB '. 


0 351? 






/ 






0351 






/ 






0352 






/ 






0353 






/ 






0354 


0304 


2654 


MOOOP2 » 


ADD P8FMT1 


/PDP-8 TO PDP-12 


0355 


0305 


1040 




STA 


/WRITE 129 WORDS 


0356 


0306 


2747 




ADOINC52000 


/IN A 400 WORD BLOCK 


0357 


,6307 


4624 




STC RDELNG 


/REAO 129 WORDS 


036tf 


0310 


2626 




ADD RDENUM 




0361 


2311 


4634 




STC WRINUM 


/1U BLOCK TRANSFER 


1 362 


0312 


1020 




LDA I 




.'3 63 


2313 


77 61 


m 1 6 > 


-16 




/ 364 


!£>314 


1040 




STA 




' 365 


2315 


2066 




RDLTAN '.2000 




<- 366 


0316 


1040 




STA 




. 367 


7317 


2037 




WDLTAN '. 2000 




m 


4320 


1024 




LDA i 




' 371 


w321 


757fc 




-201 






.'322 


144? 




STA 





<3 3 7 3 


0323 


2070 




RDEKEY ! 2000 


0374 


0324 


0011 




CLR 


0375 


0325 


0017 




COM 


, 0376 


0326 


1040 




STA 


0377 


0327 


2041 




WR I KEY S2000 


0400 


0330 


6620 




JMP GO 


04 01 






/ 




0402 






/ 




v 3403 






/ 




r '0404 






/ 




, 04 0 5 


0331 


2653 


M0D0P3 . 


1 r> Pi nO TUT/I 

ADD P8rMT0 


i? ' 0406 


0332 


4624 




sTC "DELNG 


% 0407 


0333 


2657 




ADD P10FM1 


ll^ 0410 


0334 


4632 




Cf A 1J D T 1 ur 

STC WRUNG 


04H 


0335 


1020 




LDA I 


W*» J0412 


0336 


7774 




-3 


• «s 0,4 1 3 


■ 0337 


'4667 




STC D I V I SR 


% 4 0414 


01540 


A &. A a 
0600 




iud nii/mr 
JMr U I V I Ot 


$ 04 1 5 


0341 


0011 




P 1 D 

CL" 


«? 0416 


Oil AO 


301 1 K 
£ 10 1 3 




Ann niurNT 
AUU U 1 VLilN 1 


$ 0 4 1 7 


0343 


4634 




aTC WKINUM 


jj '■, 04^0 


0344 


1020 




1 n a T 
LU A 1 


jp " 2421 


0345 


7 7 A *7 

7763 


M 1 4 1 


-14 


si "i 0422 


0346 


1040 




STA 


. : (31 4 O 7 


ffl 7 A 7 


O 01 A A 
£ 10 0 0 




DDI TAMI301010I 
KUt, 1 AIN i ClOIOtl 


f 1.0424 


0350 


1020 




LDA I 


Si) 0425 


0351 


7 7 7"? 

/ / / 3 




- 4 


0426 


0332 


1040 




C T A 

STA 


$ f' .0 4 2 7 


035o 


2037 




iiril TAMIO010101 
WDtTANi£000 


fc'j'-: 0430 


0354 


i 01 O 01 
10£0 




1 n a t 
LDA i 


»(i B 7 0 1 


10333 


/ 3 / 0 




_ O 01 A 

*" (C «o X 


iijf *'i Oi A T O 

* 'i W 7 3 A 


01 ? C A 
0330 


i 01 A 01 
1 10 7 10 




C T A 

0 T A 


fcj » ! 0433 


ffl "Z R 7 
003 / 


2070 




RDEKt T 1 £000 


jfs! 0434 


0360 


1020 




1 n a T 

LDA I 


@S S0435 


alii 

0301 


7 1 7 A 

/I 76 


M A 01 1 

nolol 1 


A 01 i 

-601 


*? IS 4 3 0 


0362 


i 01 /I 01 

10 40 




C T A 

at A 


ni i 10 7 3 / 


01 7 a 7 


£10 41 






i ' * ! (71 4 131 
H >; KJ .*f *# JO 


0!7 A4 


O O £ 10 




imp rn 


$ 10 7 4 1 






f 




& «j & A AO 






j 
/ 




§ ™ ■» 7 «r 0 






1 
/ 




f € 0 4 4 4 






/ 




$ A (A A A 


01 7 A *■> 
10003 


<£ O 3 *t 


u n n no 4 
n u u ur 7 # 


Ann p ft r m t 1 
auu for n 1 1 


S 10 1 •» 0 


lit Ai; 
0300 


A A"* 0 
403^ 




oili WK i LING 


^ ** A A 7 


01 7 A 7 

030 / 


OA 3A 
cO^O 




Ann DnrMiiM 
ADU HDtNUn 


, -* JO *T ? 10 


ffl 7 7 01 

03 


01 O A «! 

41 




"OL 1 


■ ■» & >0( 4 K 1 
,t « J07 3 J, 


01 7 7 1 
00 /X 


4A74 
7 O 0 7 




CTT UDTMIIM 

a T t< wk i iNUn 




0372 


i 01 O 01 
10£0 




1 rt A T 

LDA I 


f'i 4 W A K 7 
(P i ? 10 7 3 0 


0I777 
03/O 


01 A 01 01 
10 7 1010 


1/4 0101 
Kt 1010 > 


A 01 01 
7l0W 


4 (31 A 4 


01 7 4 
103 ' 7 


1 01 A 01 




C T A 

a T A 


•J, '1, |» 7 3 3 


0177 'i 
100 / 


2747 




AnniMri 301 01 ot 

AUU } INI- , £101019 


^. *?- '10 7 3 0 


0! 7 7 A 

> 10 0 ' 0 


1 019 51 
J, !0 £ 10 




1 n A 1 
LU A I 


4 iffl 4 K 7 
v " 10 7 3 / 


I0O / r 


77 701 

/ / / 10 


M7 . 


_ 7 
— / 


A 4 i?l 4 A 01 


01 A 01 01 
10 7 10 10 


4. 10 7 !0 




a 1 a 


5 0 4 6 1 


0401 


2066 




n u u ' h in » c v iw w 




0402 


1020 




LDA I 


'.-0463 


. 0403 


7761 




-16 


/!*a464 


0404. 


1040 




STA 


•10465 


0405 


2037 




WDITAN!2000 


•!0466 


0406 


0011 




CLR 


* 0^67 


0407- 


0017 




COM 


N 04 70 


. : 0410 


1040 




STA 


. - 0471 


0411, 


2070 




RDEKEY '. 2000 



/PDP-8 TO.PDP-N 



/PDP-12 TO PDP-8 
/READ 400 WORDS 
/WRITE 200 WORDS 
/1«2 BLOCK TRANSFER 



0472 


0412 


1020 




i nA t 

UUn X 


0473 


P141 3 


7575 






0474 


PI 4 1 4 

£J ■* X "1 


1 0 4 PI 
X f *» IO 




O 1 A 


0475 


Pi41 5 


9041 




UR I KFY ! 901 01 01 
iniULl i £ 10 10 13 


0476 


0416 






imp fin 


0477 






/ 




0500 






/ 




0501 






/ 




0 50? 

1C J %> c 






/ 




0503 


0417 


2626 




Ann RnrwiiM 


0504 


0420 


4634 




STC WRINLIM 

w < v nn 4 nun 


0505 


0421 


2377 




ADO M7 


0506 


0422 


1040 




ST A 


0507 


0423 


2066 




RDLTAN ' 2000 

r\ u W ' M in i C v 10 %J 


051 0 


0424 


1040 

JL tt/ 1 




CT A 
O 1 M 


0511 


0425 


2037 




mm Tan ! oaaa 


0512 


0426 


0011 




CLR 


0513 


0427 


2373 




Ann K4PIPI 


0514 


0430 


1040 




C T A 

O 1 M 


0515 


0431 


2747 




Ann i nip • 901 oi oi 

AU U X INU • c 1010 10 


0516 


0432 


0011 




n R 


0517 


0433 


0017 




POM 


0520 


0434 


1040 




ST A 


0521 


04 35 


2070 




RnFKFY ' 9000 


0522 


0436 


1040 




ST A 


0523 


04 37 


2041 




UR I K F Y 1 2 000 

nn i n L 1 » t IO IO 10 


052 4 


0440 






imp fin 


0525 






/ 




0526 






/ 




0527 






/ 




0530 






/ 




0531 


04 41 


2657 


M000P6 < 


Ann P10FM1 


0532 


£ 4 4 2 


4632 




STC WRILNG 


0533 


04 43 


2106 




Ann 


0534 


0444 


4667 






05 35 


QtA 4 I 5 


6660 




imp n t v i nF 

Jnr U 1 V I DC. 


0536 


0446 


1 1 901 
lieu 




An A T 
MUM 1 


01 R Tt 7 
1) J Q / 


04 47 


PI PI 011 

IO IO )0 X 


f\X » 


•1 
X 


0 540 


0 4 50 


1 4API 




CAT I 


0 5 £ 1 


10 *? ? x 


7776 




777A 


0542 


0452 


6455 




JMP . +3 


0543 


0453 


4462 




STC FXTRA 


0544 


0454 


6457 




JMP MULT2 


0545 


0455 


0011 




CLR 


0546 


0456 


4462 




STC EXTRA 




10 *t ' 


2015 




Ann n t vcnt 

MUU Ul Iv't 1 


0550 


0460 


0241 




R ni 1 

nUL X 


asm 
•o X 


2| 4 A 1 


1 1 9 0! 
X J. £ 10 




A n A T 

MUM X 


if -75*: 


I? 4 A 5 

fcl 1 O £ 


PI Pi 01 PI 

KJ W )0 *J 


rvTB A . 
LA 1 n M $ 


OI 


0553 


0463 


4634 




STC WRINUM 


0554 


0464 


2373 




ADD K400 


0555 


0465 


1040 




ST A 


0556 


04 66 


27 47 




Ann I nc ! 2000 

M U U X II w 1 faK/HW 


0557 


0467 


1090 

X I6> £ 16J 




Ln a i 

U V M X 


0560 


04 70 


7771 


M6 i 


-6 


0561 


171 A 7 1 


1040 




ST A 


pi 5 a ? 

10 > o £ 




2066 




RDLT AN ! 2000 




|0 H 1 0 


x u £ io 




i nA I 

U U M X 


356 4 


£ 4 7 4 


7773 




• 4 


<3 5 6 5 


lo4 75 


1040 




STA 


t 5 66 


0476 


2037 




WDLTAN'.2000 


^567 


£477 


0011 




CLR 


^57e 


^50? 


3^17 




COM 



/PDP-12 TO PDP-12 



/PDP12 TO PDP-N 



/ACC *-2 INDICATES REMAINDER WAS i) I.E., RDENUM «i.4.7. ETC.) 
/ADDING 1 WOULD MAKE ACC«7776«-1) 
/NOiACC NOT * -1 

/YES) NOW PUT IN EXTRA TO SUBTRACT 1 

/AFTER MULTIPLYING DIVCNT BY 2) 

/ACC NOT ■ -1) 

/CLEAR EXTRA} 

/GET RESULTS OF DIVISION; 

/MULTIPLY BY 2| 

/ADO EXTRA) 



(SI'S 7 1 


r? r 01 1 
IO3I0X 


li<34io 




C T A 

a T A 


0572 


OK (AO 


3171701 




onc^rv t 0010101 
kue.kc.t;<:io 10 io 


0| R 7 7 
10 3/0 


0503 


1020 




LO A I 


,0IR 7 /I 


0!504 


7 -1 7 £ 

/ 1 76 




_ A AM 
"OlOl 


171 R 7 R 


0505 


1040 




C T A 
3 1 A 


13 57 6 


0506 


2041 




LiDTu'crvio0i0t0i 
WKIRt T ! tWViVi 


01 R 7 7 

tA'f* (31 01 


0507 


oo<;l0 






*3©lofcJ 

IsHO B X 






f 
j 
/ 




•01 A 0! O 






/ 




40-0 Id 0 






y 
/ 




#6 04 


0! R 1 01 


3ARA 
c030 


m n n n o 7 . 


Ann 0 i 01 r m t 
AUU rxiflr n T 


(7i A o\ R 
90 0:10 3 


10 3 X X 






c T f Dnn Mr 
Sll< WUtU INI* 


.7 A oi a 


IC 3 1 c 


9 AR4 
c 0 3 7 




Ann PflrMTi 


jJI-A PI 7 


0! R 1 .1 
16 2 X u 


4 A 7 3 




0 1 V n n I L IVw 


HA 1 01 


0IR1 4 
I03 X 7 


3A9A 
CO CO 




Ann r n r m 1 1 m 


SI -A n 


(7i R 1 R 
10 71 7 


1 9 A. 01 
x<- 010 




Mill T 
n u L 1 


•WW x c 


HR1 A 
10 3 A O 


0003 




w 


i0s& 1 3 


0517 


4634 






SUA 1 yl 


01 R 901 
10 3 c 10 


90I TE 

c 10 O 3 




Ann MA 
Auu n 7 


oi,A 1 r 


I7IR31 


1040 




C T A 
w 1 M 


*ifQ X 0 


If 3 £ c 


2066 




Rni TAN' 9PI0IPI 
"UUi«INicIOI0I0 


#6 17 


0I593 
IcJ J C o 


1 090I 

x 10 10 




1 nA T 


M A 9 CI 


Pi R 9 4 
IcJ i? c "t 


7763 




-1 4 
It 


0621 


0525 


1040 




STA 


0.-62 2 


0526 


2037 




WDLT AN ! 2 00 0 


#623 


0527 


1020 




LOA I 


#624 


0530 


7177 


M600» 


-600 


W6 3 5 


wX 


1 0 4 Pi 

X f *T V 




STA 


#626 


0532 


2070 




RDEKEY ! 2000 


J3.627 


0533 


1020 




LOA I 


WKi/VlC' 


015 34 

10 5* w ~ 


7575 




-90? 


#6 3 1 


17)535 

10 V 


1 0401 




STA 


<Mj* ■» 9 


171 R 7 A 
1(3 JOO 


917141 
c 10 7 X 




URTkrv*90l0lffl 
i IS t T < c 1010 10 


MO'©; QiQ 

HS&k "K 4 


0IR77 
103 0/ 


6620 


/ 


imp rn 


apt© v *t 

#635 






( 
f 




#6,36 
#6 3 7 






f 
/ 




#6 40 


0540 


2656 


r 

M0D0P8 1 

i 1 u u w r u ^ 


ADD P10TMT 

muu r x ■» r 1 1 1 


#64 1 


01541 
to 3 ~ X 


4624 






0642 


0542 


2626 




ADD RnENiUM 


#643 


0543 


1040 




STA 


0(644 


0I544 

10 ~ "T 


0634 




UR I MUM 


#64 5 


HR 45 

ky 3 ~ J 


0331 




RDR T 1 


#6 4 6 


0546 


1200 




1 AM 


#6/4 7 


PI547 


0634 




UR T MUM 


JUS 501 

*|>5J 7.KI 


0550 


4634 




STP UR I MUM 


#6 5 1 


0551 
10 v x 


30175 




Ann M4 
muu nf 


#653? 


0552 


1040 




<!T A 


#653 


0553 


2066 




Rni T AM ! 9010101 
~ U U 1 M IN i C 10 10 10 


#65<4 


0554 


PI 0)1 1 

10 fcl X X 




n R 


#655 


0555 


2470 




Ann ma 


0656 


0556 


1040 




^ T A 

O 1 H 


#657 


0557 


2037 




WDLTAN ! 2000 


0660 


0560 


1020 




LDA I 


0-661 


0561 


0400 




400 


.0662 


0562 


1040 




STA 


06.63 


0563 


2747 




ADD I NC!2000 


#6*4 


0564 


0011 




CLR 


#665 


0565 


0017 




COM 


3666 


0566 


1040 




STA 


#667 


0567 


2041 




WRIKEYI2000 



/POP-N TO PDP-8 



/POP-N TO PDP-12 

/WRiFMT IS OK FOR 12 TAPE 



/ADD AGAIN TO MAKE 1.5 X RDENUMJ 

/LINK BIT GIVES US EXTRA BLK IF RDENUM WAS AN ODD NUMBER 



0670 


0570 


3011 




CLR 


0671 


0571 


2530 




ADD M600 


0672 


0572 


1040 




STA 


0673 


0573 


2070 




RDEKEY ! 2000 


0674 


0574 


6620 




JMP GO 


0675 






/ 




0676 






/ 




0677 






/ 




0700 






/ 




0701 


0575 


2656 


M0D0P9. 


ADD P10FMT 


0702 


0576 


4624 




STC RDELNG 


0703 


0577 


2657 




ADD P10FM1 


0704 


0600 


4632 




STC WRILNG 


0705 


0601 


2626 




ADD RDENUM 


0706 


0602 


4634 




STC WRINUM 


0707 


0603 


2035 




AOO M4 


0710 


0604 


104 0 




STA 


0711 


0605 


2066 




ROLTAN52000 


0712 


0606 


1040 




STA 


0713 


0607 


2037 




WDLT AN ! 2000 


0714 


0610 


0011 




CLR 


0715 


0611 


2361 




ADD M601 


0716 


0612 


1040 




STA 


0717 


0613 


2041 




WR IKEY 1 2000 


0720 


0614 


0011 




CLR 


0721 


0615 


2530 




ADD M600 


0722 


0616 


1040 




STA 


0723 


0617 


2070 




ROEKEY52000 


0724 






/ 




0725 






/ 




0726 






/ 




0727 






/ 




0730 


0620 


0002 


GO. 


POP 


0731 






PMOOE 




0732 


4621 


4651 


JOB1, 


JMS I READPT 


0733 






LMODE 




0734 


0622 


0000 


rdefu, 


0000 


0735 


0623 


0000 


RDElOC. 


0000 


0736 


0624 


0000 


RDElNG • 


0000 


0737 


0625 


0000 


RDEBN, 


0000 


0740 


0626 


0000 


RDENUM, 


0000 


0741 






/ 




0742 






PMODE 




0743 


4627 


4652 


J0B2, 


JMS I WRITPT 


0744 






LMODE 




0745 


0630 


0000 


WRIFU, 


0000 


0746 


0631 


0000 


WRILOC. 


0000 


0747 


0632 


0000 


WRUNG. 


0000 


0750 


0633 


0000 


WR I BN « 


0000 


0751 


rf634 


0000 


WRINUM, 


0000 


0752 






PMOOE 




0753 


4635 


6141 


WRIEXIT 


.LINC 


0754 






LMODE 




0755 


0636 


0643 




LOF 3 


0756 


^637 


1000 




LDA 


0757 


0640 


2012 




NBLOCK 52000 


0760 


0641 


1620 




BSE I 


0761 


0642 


6000 




6000 


0762 


0643 


0470 




AZE I 


0763 


06*4 


6673 




JMP DONE 


0764 


06^5 


0002 




POP 


0765 








PMODE 


0766 


4646 


5221 




JMP JOB1 



/POP-N TO PQP-N 



/ALWAYS LEFT AS 0000 



/GET REMAINING BLOCKS 



/ARE WE FINISHED? 
/YES 

/HELL NO 

/OK; GO READ MORE 



0767 
0770 
0771 
0772 
0773 
0774 
0775 
0776 
0777 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
±007 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
.1027 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1040 
1041 
1013 
#014 
2015 
#016 
2017 
1020 
2021 
2022 
2023 
21324 
2025 
2026 
2027 
2030 
2031 
2032 
2033 
2034 
2035 
2036 



4647 
4650 

4651 
4652 

0653 
0654 
0655 
0656 
0657 



0660 
0661 
0662 
0663 
0664 
0665 
0666 
0667 
0670 
0671 
0672 



7402 
7402 

6057 
6025 

0200 
0201 
0202 
0600 
0601 



0041 
0000 
0011 
4015 
2626 
0235 
1120 
0000 
0471 
6665 
6001 



HLT 
HLT 



/TRY AGAIN} 



0673 6020 



/ 

READPT, 
WRITPT, 
LMODE 

P8FMT0, 0200 
P8FMT1, 
P8FMT2. 
P10FMT, 
P10FMli 0601 
/ 
/ 
/ 
/ 

DIVIDE 



RE AD ! 6000 
WRJTE56000 



0201 
0202 
0600 



/WORDS PER BLOCK 



01 VISRt 



/ 
/ 

DONE i 
/ 

//// 



SET 1 
0 

CLR 

STC DIVCNT 
AOO ROENUM 
XSK I DIVCNT 
ADA I 
0 

APO I 
JMP, -4 
JMP 1 



JMP 20 



/SET UP RETURN JUMP* 
/CLEAR DIVIDEND 



/INCREMENT DIVIDEND! 

/SUBTRACT DIVISOR* 

/HAS ACC GONE NEGATIVE YET? 

/NOI 

/YESl RETURN I 



/DISPLAY FRAME 1 



LMODE 

SEGMNT 2 
/QANDA SUBROUTINE FOR THE 
/PDP-12 

/REMOVE #1000 BELOW IF 
/INSERTING SOURCE DIRECTLY 
/INTO YOUR PROGRAM SOURCE 
#1113 /REMOVE, IF DESIRED 
/ 

/TO HERE TO INITIALIZE THE ROUTINE 
/ 

NOLIST 

/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

LMODE 
/ 



DECTAPE ROUTINE FOR THE PDP - 12 



SEGMNT 3 



9 iA X 7 

2 00 7 






/ 




Oft A (A 






/ 




<£W<*1 






/ 




9 01 A 9 
C. V H C 






/ 




9 01 At 






/ 




9 01 A A 
20 44 






/ 










/ 




9 oi a a 






/ 




O 01 /i 7 






/ 




o oi c; oi 






/ 




5 01 1 






y 

/ 




9 oi k n 
20P2 






/ 




9 oi t; t 






/ 












SBM 










swo 


2056 






/ 




9 oi e 7 
2057 






/ 




2060 






/ 




2061 






/ 




2062 






/ 




2063 






/ 




9 01 £ /i 

2064 






/ 




9 oi <t c 








•1 


2066 






/ 




9 01 A 7 






/ 




9 01 7 01 
£.<0 /0 






/ 




9 01 7 "1 

2071 


OI ffi OM 

0001 


01 01 01 01 


T A C 1/ 


HLT 


90179 


01 01 01 9 
1010 0 1 


01 01 01 01 


orCT 
□ toll 


01 

0 


9 01 7 7. 

20 70 


0003 


01 01 01 01 

0000 


WCOUNT » 


0 


o&y a 
c!0 / *» 


01 01 01 A 


01 01 01 01 
10101010 


or T A Q 
DC. 1 AH | 


0 


9 01 7 e 
20 / P 


01 01 01 6? 


01 01 01 01 

10 10 10 10 




0 


20 /o 


0006 


0000 


SK I P 2 • 


0 


9 01 7 7 

2077 


0007 


01 OI OI fl( 

0000 


OAT A WD • 


0 


O 1 01 01 

2100 


0010 


0000 


COUNT0 * 


0 


2101 


0011 


0000 


C0UNT1 » 


0 


2102 


0012 


0000 


m n i rt /» l/ 

NBLOCK i 


0 


2103 


0013 


0000 


PO INTl » 


0 


2104 


0014 


01 01 01 01 

0000 


D T hi T *"i 


0 


2105 


0015 


0000 


I BLOCK « 


0 




0016 


0000 


5W I TCH i 


0 


2107 






/ 




2110 






/ 




2111 






> 




9 i «1 9 

2112 






/ 




2113 






/ 




2114 






/ 




2115 






/ 




2116 






/ 




2117 






/ 




2120 






/ 




9 1 9 <l 

2121 






/ 




9-499 

2122 








• 20 


9 i 9 1 
£ 1 2 0 






/ 




9 1 9 >t 

2124 






/ 




9 •! 9 C 

212? 






/ 




9 1 9 A 

1 1 20 






y 
/ 




91 97 






y 
/ 




9 1 t 01 






/ 




c X O 1 










2132 






/ 




2133 






/ 




2134 






/ 




2135 






/ 





/SKIP ON BLOCK MARK FLAG 
/SKIP ON WORD IN TAC. 



2136 






/ 








213? 






/ 








21412 






/ 








2141 






/ 








2142 


Z020 


0002 


EXI T , 


POP 


/COMES 


HERE AFTER READS & WRITES 


2143 








PMODE 






214 4 


6021 


7330 




CL A CLL CML RAR 






2145 


6022 


6152 




6152 






2146 


6023 


7200 




CLA 






2147 


6024 


5657 




JMP I READ 






2150 






/ 








2151 






/ 








2152 






/ 








2153 






/ 








2154 






/ 








2155 






/ 








2156 






/ 








2157 






/ 








2160 






/ 








2161 






/ 








2162 






LMOOE 








2163 






/ 








2164 






/ 








2165 






/ 








2166 






/ 








2167 






/ 








2170 






/ITS IMPORTANT THAT "WRITE" LOCATION HAVE A 10 BIT ADDRESS! 


2171 






/ 








2172 






/ 








2173 






/ 








2174 


0025 


0000 


WRITE, 


0 




/GENERALWRJTE ROUTINE 


2175 






PMODE 








2176 












/CALLED IN 8 MODE 


2.177 


6026 


6141 




LINC 




/GET INTO LINC MODE 


2200 








LMODE 






2201 


0027 


1000 




IDA 






2202 


0030 


0025 




WRITE 




/GET THE CALLING ADDRESS 


22 03 


0031 


4057 




STC READ 




/AND PLACE IN THE READ ADDRESS 


2204 


0032 


0061 




SET I TASK 




/SET THE OPERATION TO DO A WRITE 


2205 


0033 


6476 




JMP DOUTIT 




/JMP TO WRITE ROUTINE 


2206 


0034 


0062 




SET I BEST 




/SET THE BEST CASE TO SKIP 


2207 


0035 


7774 




-3 




/3 WORDS, THE WRITTERS NEED SOME ROOM 


2210 


0036 


0075 




SET I IBLOCK 






2211 


0037 


0000 


WDLTAN, 


0 




/NUMBER OF BLOCKS WRITTEN AT A TIME 


2212 


0040 


0076 




SET I SWITCH 






2213 


0041 


0000 


WRIKEY, 


0 




/TOTAL NUM WORDS WRITTEN 


2214 


0042 


1020 




LD A I 






2215 


0043 


0706 




0706 


/LJNC 


WRITE 


2216 


0044 


4744 




STC INST 






2217 


0045 


1020 




LDA I 






2220 


0046 


2633 




WRIBN!2000 




/SET-UP WRITE 


2221 


0247 


5003 




STC BNSET 






2222 


0050 


1020 




LDA I 






2223 


0051 


2634 




WRINUM!2000 




/DITTO 


2224 


0052 


5010 




STC NUMSET 






2225 


0053 


1020 




LDA I 






2226 


0054 


0451 




APQ 






2227 


0055 


4225 




STC WRIOK 




/CHECK THE WRITE SWITCH 


2230 


0056 


6105 




JMP COMMON 




/GO TO THE COMMON READ-WRITE 


2231 






/ 








2232 






/ 








2233 






/ 








2234 


0057 


0000 


READ, 


0 




/GENERAL READ ENTRY 



2235 








PMQDE 




2236 


6060 


6141 








2237 








LMODE 




2240 


0061 


0061 




SET I 


TASK 

1 M 3 f\ 


2241 


0062' 


6350 




JMP 


DINIt T 


2242 


0063 


0062 




SET I 


BEST 


2243 


0064 


7773 




-4 




2244 


0065 


0075 




SET I 




2245 


0066 


0000 


RDLTAN » 


0 




2246 


0067 


0076 




SET I 


SWITCH 


2247 


0070 


0000 


RDEKE Y > 


0 




2250 


0071 


1020 




LDA I 




2251 


0072 


0702 




0702 




2252 


0073 


4744 




STC INST 


2253 


0874 


1020 




IDA I 




2254 


C5PI75 


2625 




RDEBN ! 2000 


2255 


0076 


> K/ Kl o 




STC 8NSET 


2 Q C £ 

c. £ I? 0 


171 01 77 


1 (7I90I 

X V) £ V 




LOA I 




£ / 


G! i (A (A 
\0l\OID 


COCO 




RDENUM 5 2000 


2260 


£11 01 


5010 




STC NUMSET 


2261 


511 02 


10201 

X 10 £ 10 




LOA I 




2262 


01 03 

IC X V 


0016 




NOP 




2263 


0104 


4225 




STC WRIOK 


2264 






/ 






2265 






/ 






2266 


0105 


0002 


COMMON i 


POP 




2267 












2270 


6106 


4321 




IMS 




2271 


6107 


3325 




nr a 

U V M 


A R f!1 


2272 


6110 


4321 




IMS 


Met I 


2273 


6111 


3326 




U V A 


A R (iO 


2274 


6112 


4321 




IMS 


HUE. I 


2275 


M 1 3 

0 X X u 


3327 




nr a 


M n v>0 


2276 


61 14 


4321 




JMS 


AGFT 

M V Cp 1 


2277 


M 1 5 
0 X A -> 


3330 




OCA 


ARG4 


2300 


6116 


4321 




JMS 


AGET 


2301 


6117 


3331 




OCA 


ARG5 


2302 


6120 


5334 




JMP 


PASTS 


2303 






/ 






2304 






/ 






2305 


6121 


0000 


AGET , 


0 




2306 


M 22 


1657 




TAD I 


READ 


2307 


6123 


2257 




IS2 


READ 


2310 


6124 


5721 




JMP I 


AGET 








j 
r 






2312 






f 






2313 






/ 






2314 






/ 






2315 
2316 






i 

r 










/ 






2317 








LMODE 




2320 






/ 






2321 

C O C X 






/ 






2322 






/ 






2323 






f 






2324 






/ 






2325 






/ 






2326 


0125 


0000 


ARG1 , 


0 




2327 


0126 


0000 


ARG2, 


0 




2330 


0127 


0000 


ARG3, 


0 




2331 


0130 


0000 


ARG4 f 


0 




2332 


0131 


0000 


ARG5, 


0 




2333 


0132 


0000 


SIZE, 


0 





/WE RE IN 8 MODE WHEN CALLED 
/GET OVER INTO LINC MODE 

/SET THE TASK TO READ 

/SET THE BEST CASE TO SKIP 
/ 5 WORDS 

/NUM BLKS READ AT A TIME 
/TOTAL WORDS PER BLK 
/LINC READ 



/SET-UP FOR READ 
/NUM BLKS 

/DONT CHECK WRITE SW 

/GET OVER INTO 8 MODE TO GET THE ARGUMENYTS 
/GET THE ARGUMENTS 



/SKIP PAST SUBROUTINE 



/READ « WRITE ARGS 



2 33 4 


0133 


0000 TEMP, 0 






2335 




FBLOCK =ARG4 






2 336 




/ 








2337 




/ 








2 34 0 




/ 








2 3'4 1 




/ 








234^2 




/ 








234^3 




/ 








£ o't4 




/ 








£i>43 




/ 








£0-4 0 




/ 








234'7 




/ 








O It Bk fl! 
£0710 




/ 








2351 






PMOOE 






2 352 




/ 








2 353 




/ 








2 354 


6134 


6141 PASTS, LINC 




/GET INTO LINC MODE 


2355 






LMODE 






2356 


0135 


91 9S> 
£129 


ADD 


ARG1 


/GET THE FIRST ARGUMENT 


2 357 


0136 


0I945 
10 £ *r 9 


ROL 


5 


/ROTATE TO GOOD IOB PLACE 


2360 


0137 


1 R AOI 
19OI0 


BCL 1 




/JUST GET BIT 6 


2361 


0140 


7737 


-40 






2362 


01 4 1 




STC UNITL1 


/SAVE UNITS 0 « 1> 


£000 


0142 




ADD 


ARG1 


/GET IT AGAIN 


£004 


0143 


0301 


ROR 


1 


/SHIFT OVtR 


2oo5 


0144 


1 5 API 


BCL I 






£0 00 


0149 


7 77 4 


-3 






£ 007 


01 4 4 A 


49 dpi 

~£ *t |0 


STC 


LAXQ 


/ A KI H C T A C U AUAV 

/AND STAaH AWAT 


£0 Tie 


01 1 4 7 
■01 4 f 


91 95 


ADD 


ARG1 


/(lex Turpfi ap atatm 


co r i 


011 "SOI 


0301 


ROR 


1 


core 


OM R1 


1560 


BCL I 






£«S ro 


019£ 


7743 


-34 






£0/4 


01 "1 R 7 


1620 


BSE I 






9*7K 

£0/3 


10194 


0640 


LOF 


0 




Oil* 
£ «> / 0 


fa 1 R R 
I0199 


4635 


STC SOATAF 




ev"r7 ' 


0)1 R A 
I01 90 


2126 


ADD 


ARG2 


/rrT Tur jnnurcc 


?40|0| 


011 57 
|0 1 3 / 


1040 


STA 






9 4 01 1' 


01 1 A Of 
tl 1 0 ky 


0347 


C0REL1 




/J 1 Unt J IN r I rs a 1 ^ y n t Uvv 


9 4 pi 9 
£'"t|p« 


011 M 


4552 


STC C0REL2 




24 07 

£"? »V0 






/ALSO 


IN SECOND LOC, 




2404 


011 ft? 
X 0£ 


2127 


ADD 


ARG3 




9 4 At; 
£4|09 


01 1 A 7 

io 1 0 0 


0017 


COM 




^INtUATt, IT 


9 4 0I A 


01 1 A 4 
10104 


4132 


STC 


SIZE 


/ A M n CTlQU AUAV 


940I7 
£ *r 0 / 


011 

mop 


2131 


ADO 


ARG5 


/rrT TUT MIIMorQ fir Bl flCKe 


0 a 4~ 
2410 


0166 


0470 


AZE I 






£ 4 i i« 


Ol 1 A 7 
IS 1 0 / 


6020 


JMP 


EXIT 


'INU oUUl/ISo T U UU t 


9 41 0 
£4J£ 


011 70I 

lol 1 lo 


0017 


COM 






£4 J.0 


01 1 7 1 
Wl 1 1 


4012 


STC 


NBLOCK 


/AINU oTAon AWAT, 


9 44 4 
£4 X 4 


0!1 79 
101 1 £ 


0216 XSK 


SWITCH 






94 1 c 
£4 19 


Oil 77 
101 / 0 


0467 


SKP 






541 a " 
£410 


01 1 74 
10 1 ' 4 


6711 JMP 


LINC 




/IT CUtTPU-i7777 
fir OWJT0H 3 //7/ 


9 41 7 




/ 








94 9 CI 
£ *t £Kf 




/ 








9491 
£ 4 £ 1 




/ 








9 4 99' 




/ 








2423 




/ 








2424" 




/ 








2425 




/ 








2426 


0175 


1020 WAITU, LDA I 




/THIS WAITS TILL DRIVE IS 


2427 


0176 


5000 


5000 






2430 


0177 


0500 


JOB 






2431 


0200 


6151 


6151 




/GET INTO MAINTENANCE MODI 


2432 


0201 


1020 


LDA I 







9477 
C t 0 0 


(71 0 0! 9 

|02>0<. 


01 £7i 4 (71 
10 10 7 10 




4 (71 

40 




94 74 


0203 


9 9 4 (71 
22*0 




Ann 1 a v 

ADD LAXO 


/ADD ON CORRECT UNITS 


2*03 


(7 9 1714 


(71 (71 (71 1 
I0I0101 




AXO 




9 4 7 A 


0205 


1 01 (71 171 

X 10 10 10 




1 n A 
tDA 




9 417 


no (71 A 
02100 


(7I3R9 

10232 




UN I TLl 




9 4 4 01 
2 * 1 10 


0207 


1 1 9 (71 

1120 




ADA I 




9 4 41 
£ *r *> X 


0210 


(719(71 A 
102100 




206 




9 4 4 9 
2**2 


0211 


(71R (71 (71 
103 1010 




108 




9 4 4 7 
c *» t 0 


(^ 9 1 9 
02Xc 


A1 R9 
0X32 




A 1 R 9 

6132 


yen rpT efTT kiVkl 


9 4 4 4 
c ** *» *r 


I71 9 1 7 

0210 


1 0I90I 
Xi0el0 




1 n A t 
LD A I 




9 4 4 5? 
2 7 *t 3 


(71 9 1 4 

021* 


(71 1 (71 (71 

10X1010 




1 (31(71 
100 




9 4 4 * 


(71 O 1 R 

0213 


01 R 01 01 
10310 10 




I Dp 




94 47 
c *1 7 / 


(71 9 1 A 

I021O 


A1 K9 
OX 32 




A1 R9 
6132 


/CTT DAPtVLUDn 


94 S (71 


(71 9 1 7 
I0 2 A / 


01 011 1 
WWII 




I* 1 Q 

CL" 




9 4 R 1 

2*31 


0220 


(71 R (71 ffl 
0300 




108 




9 4 K 9 

2*32 


r?i 0 9 1 
02*1 


A 4 R >l 

013* 




6154 


/READ TRANSPORT STATUS 




(51 99 9 
0222 


01 7 9 9 
10022 




ROR I 2 




9 4 K4 


0223 


(71 4 7 O 
10 *> 7 2 




LZE I 




9 4 KK 

2 * UP 


0224 


A 1 7 C 

0173 




IUQ ill r Tl 

JMr WAITL 


i 1111 t f kiA* nrinu up* 

/UNIT NOT READY YET. 


9 4 K A 

t *? 3 0 


(71 9 9 R 
10223 


01011 A 
10 10 X 0 


ui Q 7 CW 
WK 1 UK f 


MOD 

NOr 


/TUT e TklCT TC DTDI irm nilO T Tiif» 

/THIS (NaT, Ja MtrLACED DUKINC THE 


94K7 










/Ht*D*N0r WHITE s ArO 


9 4 A 01 

2*010 


0226 


A 9 7 A 

020* 




JMr ,*6 




9 4 A 1 
2*01 


(71 9 9 7 

022 / 


1 01 9 (71 

110210 




LDA I 


/WNJTE SWITCH NOT ON) 


94 A 9 


(71 9 7 (71 

W2OI0 


401 01 01 
7101310 




4000 


yCTnQ T A Df 

/aTUr TArL 


9 4 A 7 
C *» 0 0 


I7l 9 7 1 

63201 


(71 R (31 (71 
1031010 




I Ob 




2464 


(71 9 7 9 


A1 59 
OX 3£ 




A1 R9 
0132 


l\ TM BRrer T 
/L 1 n rixtst • 




(71 o7 7 
10 20 0 


A 1 7 R 
OX / 3 




|UQ LI A t T 1 

JMr WA 111. 




94 AA 












9 4 A7 
c 7 0 / 






/ 






94 7 0I 
£7 /Ifl 






/ 






9 4 71 
2 * /X 


_ 

0234 


01011 1 

I0I0X1 




f* 1 D 

CL" 


Jf*i C kO HUT TUC Ul TKIT TM AMC*r UAnr 

/CLtAK UUT THE MAINTENANCE MODE 


94 79 
2* /2 


0203 


(TIC: (71 (71 

103 100 




I UO 




D A 7 7 

2473 


0236 


6151 




6151 




2474 


0237 


1020 




LDA I 




9 4 7 K 

2 * 7 5 


0240 


0000 


LA AO i 


0 




2476 


0241 


(71 (71 fll 1 




AXO 




9477 

2 7 / / 


(719 49 

02*2 


A 7 01(71 
00 1010 




JMr BACKWARD 




9 R (91 01 
291010 






/ 






9 5 S1 1 
23I0X 






f 






3 SO! 9 

C3I02 


(71 0 4 7 

102*0 


171 01 4 7 
1010** / 


rnDU ton 
r U nn An U 


» Sr. 1 U A 1 A Wu 


/nATA uncri<5 pro qi fini* 

/UAI A WUnua rtn OUUvIV 


95 0I7 
<■ 9 B 0 


(71 9 4 4 


011 73 
kVXOc 




9 1 EL 




9R014 
C3I07 


0245 


|0I0*>O 




at! WCUUNT 


7IUIAL WUMUa rtn PLUCK 


0 c; (51 K 
£9107 


(3194 A 

102*0 


d OH A 

I0I0XO 




cut Tnu 




2506 


0247 


1020 




LDA I 




2507 


0250 


0226 




226 




2510 


0251 


1120 




ADA I 




2511 


0252 


0000 


UN I TLl » 


0 




2512 


0253 


0500 




I OB 




2513 


0254 


6152 




6152 


/en erT run 
/aEL>aEI r WD 


2514 


0253 


0045 




O C T CI/ T D 

SET 5K i r 




2515 


0256 


0002 




nrCT 

BEST 


/mum rnMTBm unonc 


2516 


0257 


0414 




SBM 


vuAfT mo DM 
/WAIT run BM 


2517 


0260 


6257 




JMP .-1 




2520 


0261 


0003 




TAC 


/dm Td a r* 
/ bN TO AC 


2521 


0262 


0016 




NOP 




2522 


0263 


0457 




SWD 


/CLrTD rTDCT cunDT iiAnn 

/olSIr r JUST aMOnT WORD 


9597 


(31 9 A 4 
10 2 0 1 


A3 A 7 




IMP .1 




2524 


0265 


6637 




JMP INIT 


/SHUFFLE 


2525 


0266 


0451 




APO 


/ARE WE OUT OF END HONE? 


2526 


0267 


6243 




JMP FORWARD 


/NO 


2527 


0270 


1440 




SAE 


/YES 


2530 


0271 


0130 




FBLOCK 


/RIGHT BLOCK? 


2531 


0272 


0467 




SKP 


/NO 



2532 


0273 


6001 




JMP TASK 


/YES J NOW DO IT! 


2533 


0274 


0017 




COM 




2534 


0275 


2130 




ADD FBLOCK 




2535 


0276 


0471 




APO I 


/GOING RIGHT DIRECTION?? 


2536 


0277 


6243 




JMP FORWARD 


/YES, KEEP GOIN 


2537 






/ 






2540 






/ 






2541 






/ 






2542 






/ 






2543 






/ 






2544 






/ 






2545 






/ 






2546 






/ 






2547 






/ 






2550 






/ 






2551 


0300 


1020 


BACKWARD, LDA I 




2552 


0301 


0306 




306 




2553 


0302 


1100 




ADA 




2554 


0303 


0252 




UNITL1 




2555 


0304 


0500 




IOB 




2556 


0305 


6152 




6152 


/GO BACKWARD 


2557 


0306 


1000 




LDA 




2560 


0307 


0130 




FBLOCK 




2561 


0310 


1120 




ADA I 




2562 


0311 


7774 




7774 




2563 


0312 


0451 




APO 


/JS BLOCK <4? 


2564 


0313 


6331 




JMP DEEP 


/YES 


2565 


0314 


0414 




SBM 


/WAIT FOR BM 


2566 


0315 


6314 




JMP .-1 




2567 


0316 


0003 




TAG 


/BN TO AC 


2570 


0317 


6637 




JMP I N I T 


/SHUFFLE 


2571 


0320 


1120 




ADA I 


/GO 3 BLOCKS PAST DESIRED BLK 


2572 


0321 


0003 




3 


2573 


0322 


0017 




COM 




2574 


0323 


2130 




ADD FBLOCK 




2575 


0324 


0470 




AZE I 


/RIGHT BLOCK? 


2576 


0325 


6243 




JMP FORWARD 


/YES 


2577 


0326 


0451 




APO 


/NO, 


2600 


0327 


6300 




JMP BACKWARD 




2601 


0330 


6243 




JMP FORWARD 




2602 






/ 






2603 






/ 






2604 






/ 






2605 






/ 






2606 






/ 






2607 






/ 






2610 






/ 






2611 






/ 






2612 






/ 






2613 






/ 






2614 


0331 


0414 


DEEP, 


SBM 


/COMES HERE IF BLOCK < 4 


2619 


0332 


6331 




JMP .-1 




2616 


0333 


0003 




TAC 


/BN TO AC 


2617 


0334 


6637 




JMP INI T 


/SHUFFLE IT 


2620 


0335 


0450 




AZE 


/BLOCK 07 


2621 


0336 


6300 




JMP BACKWARD 


/NOT YET! 


2622 


0337 


0071 




SET I C0UNT1 


/THIS DELAY ALLOWS US TO FIND 


2623 


0340 


7767 




-10 




2624 


0341 


4010 




STC COUNT0 




2625 


0342 


0230 




XSK I COUNT0 




2626 


0343 


6342 




JMP .-1 




2627 


0344 


0231 




XSK I C0UNT1 




2630 


0345 


6342 




JMP .-3 





9 A 71 
C 001 


01 7 4 A 
10040 


A 9 4 7 
0C40 




imd rnDu*on 
Jnr r OKWAHU 




9 A 7 9 
cOOC 






y 
/ 






C 0 0 0 






I 
t 












i 






c 0 03 






1 
f 






t 0 00 


0IT 4 7 


01 01 01 01 
10 10 (0 10 


bUKLLl > 


01 

10 




9 A77 
c 0 0 / 






f 






co *tu 






i 
/ 






2 A41 
c 0 *f X 






i 
/ 






2642 






I 
f 






9 A47 






I 
/ 






2644 


017501 


0046 


n i n i t . 


SET SKTP2 


/READ RQUTIMF 




ei75i 

iC 0 ✓ X 


0005 




Oft (r 




9 A4A 


01759 


01011 1 
I0I0XX 








9647 

C V "t / 


01753 
10 O 7 w 


4641 




CTP 1 PR 






01 7 54 


AA15 
0009 




IMP CfliTir 

jnr sua i at 


/ IIICT Cf T nP 

/ jua i dc, I yr 


9 A51 
C 0 9 X 


01155 


0199 A 
10 c C 0 




VSK T Ck T DO 

Aar\ i 3R| re 


/cklP 7 rnsiTRni unfinc 


9 AS>9 
C09c 


0I75A 
100 90 


014 A7 
10 *r 0 / 








9 ART 


01757 
10 O " / 


6365 




imp I rCTrk 

jnr 1 bC. 1 lift 


/ bu l ne, T UP 


2654 


Ml API 


04 57 




cun 
SHU 


yciffp nw un n Afi 

/3M" WW NU r UAU 


2655 












? A 5 A 
C030 


Oil A 1 
I0OOX 


A7 API 

oooio 




|UB _1 

jnr 




2657 


0I769 
10 O w C 


0457 








9 A A 01 
£u OK) 


017 AT 
100 OO 


A759 
OO 9c 




IMP n I W T T* 9 
Jnr U 1 IN I 1 ♦ c 


/RTPT A T 
/ fit" LA 1 


9 A A 1 


Oil A4 
10 O w ~ 


A7A9 




IMP .1 
Jnr < **c 




2669 
c w v c 






/ 






OA AT 
c O 0 O 






t 






2664 


017 A5 

10 O O J 


0457 




cun 
O n u 


/WAIT FOR REV CS 
i Hill I r yn nt» ? wv 


9 A A 5 


017 AA 

io o o o 


A7 A5 




IMP .1 
Jnr • "X 




9 AAA 
CO 00 


017 A7 
100 0/ 


0101017 
10 10 10 0 




TAT 


/ i>% i | i 


96 A7 
coo/ 


01770 
io o / io 


A677 

QUO' 




IMP T M t T 

Jnr 1 IX i I 


/PUT TN LPB A SUUPFI F 
r"UI 111 Wro 9 anUr r LL 


9 A70I 
C O / to 






f 






9 A71 
cO/X 






1 
I 






9A79 
c O / C 






1 
/ 






9A77 






I 
1 






2 A74 
C O / 4 


0( 7 7 1 
loO / X 


014 57 
107 9 / 


T rFT 1 T 


owu 


/UAIT FOR UORn 
/WA4 1 F un NUnU 


9 A75 
cu/7 


01779 
ICO / c 


A771 
OO / X 




IMP — 1 

jnr i ~x 




9 A 7 A 

co / o 


01777 
100/0 


I0I0I0O 




TAP 
1 AV 


/TAPF Af TO AT 


2677 


01774 
10 o / 7 


6637 




IMD TWIT 

jnr i v* 4 i 


/POMP PARITY ASHUFFI F 


C / 1010 


01775 


0I0I0I9 




PnP 




97011 

C / V i 








aunnr 




970I9 
c / IOC 


A77 A 
00/0 


7747 
0 / 4 1 




nr a i rnRci 1 


/eTQPc nATA 


270I7 


A777 

00 / / 


9747 
C04 / 




lac ouricLX 


/ t ncr Ann 


C / 104 


A A 01 01 

041010 


/ |0j0 10 




una 
INUr 




nine 

c703 


6401 


A 4 4 4 
0141 




L I NC 




2706 








LMODE 




2707 


0402 


0223 




vet/ i ufnnMT 
XSK I WtOUNT 


/c T m t cuFno 
fr i IN 1 antu f 


97 1 a 


01 il 01 7 


0(4 A? 
104 O / 






/NO 


974 I 


0404 


A 4 4 01 
04X10 




imd i rrTi d 
jnr l l»L i Lr 


/ yfs . rft rc 


9 7 4 9 

c/lZ 


fit 4 ftXB 

0409 


019 97 
10 CC 7 




A3 ft 1 U A 1 A w u 


/flOT All n A T A t 
/<J , »1 AUU UAIAf 


974 1 
c/10 


01 il 01 A 


A771 
00 71 




imd irrTiT 
Jnr I l>t i l I 


/Nfi . fin Tn t t 
/ in y i b u i u «i 


9714 
c / in 


0407 


A4R7 
0 4 90 




imp i A^Tun 
jnr L A o i wu 


/RET 1 AST UQRn 


974 K 
c / 19 


0410 


014 57 

104 9 / 


T GFTl P 




/WATT FOR LPR 


9 7 1 A 
c/10 


0411 


A 4 4 01 




IMP -. 1 

jnr • "X 




9*7 1 ? 

c/17 


0412 


01 01 01 1 

1010190 




fin 

TAG 


y| PB TO AT 


9 7 901 
C / CI0 


0413 


1 5 A 01 
1 9 010 




DPI T 

OIL 1 


/fS T 9 ONI Y A RT TQ 


9 7 9 4 
C /Zl 


0414 


4 4 A 7 

1400 




1 4A7 
1400 


/ vWtnn U w r i HAL" 


2799 
c / C c 


014 1 5 


6637 




IMP I N T T 

^ n r ill 1 < 


/COMP PARITY 


2723 


0416 


0011 




CLR 




2724 


0417 


2641 




ADD LPB 


/GET PARITY BUF 


2725 


0420 


6646 




JMP LPB*5 


/SHUFFLE IT 


2726 


0421 


1040 




STA 




2727 


0422 


0641 




LPB 





2730 


0423 


^246 




ROL 6 


/XOR L4R 


2731 


0424 


1640 




BCO 




2732 


0425 


0641 




LPB 




2733 


0426 


0306 




ROR 6 




2734 


0427 


0450 




AZE 


/GOOD CHK SUM? 


2735 


0430 


6460 


PARERR » 


JMP ROEAGN 


/N05TRY AGAIN 


2736 






/ 






n7 77 

2/37 






/ 






2740 






/ 






O 7 /I 4 

2741 






/ 






9 74 O 

2 /42 






/ 






2743 


0431 


1020 


RDEDUN » 


LDA I 




O 7 il /I 

2 / 44 


0432 


0001 




1 




1 7 il K 

2745 


0433 


1140 




ADM 




2 746 


0434 


0130 




r BLOCK 


/INCR BLOCK 


9 7 A 7 
c / 4 7 


01 A ~K K 

04 05 


01*5 70 




XSK I NBLOCK 


/ALL DONE? 


37K0I 


10400 


01 A A 7 
1040 / 




aKr 


/NUj UUNfc. YfeT 


'9 7*->l 

2/53, 


flu 7 7 


A r?i o 

0020 




JMr EXIT 


/Tta DUNE 


O 7 C *3 

2 752 




0235 




XSK I IBLOCK 


/r I N I SHfcD DBN? 


"37 r7 


04 41 


62 43 




ikiQ rnDH low 

JMr FQHWARD 


y Kin 


*5 7 C A 

2754 


0442 


0642 




LOF 2 




2755 


0443 


1040 




STA 


/SET UP FOR NEXT READ 


2756 


0444 


2625 




RDE8NI2000 




2757 


0445 


0011 




CLR 




2760 


0446 


2012 




ADO NBLOCK 




2761 


0447 


0017 




COM 




2762 


0450 


1040 




STA 




2763 


0451 


2626 




ROENUMI2000 




07 L A 

2/64 


045c 


6020 




JMP EXIT 




2765 






/ 






2766 






/ 






2767 


0453 


0457 


LASTWD » 


swo 


/THIS WORD IS INCLUDED 


2770 


0454 


6453 




JMP .-1 


2771 


0455 


0003 




TAC 




2772 


0456 


6637 




JMP I N I T 


/PUT IN LPB 


7 n t 

2773 


0457 


6410 




JMP IGETLP 


y « f f » LIT /"» O 

/GET THE CS 


2774 






/ 






2775 






/ 






2776 


_ 

0460 


0011 


Hub AbN 1 


CLR 


/PARJTY ERROR 


9 7 7 7 

C 1 II 


O A A 1 

0401 


9i 7rs 
2102 




Ann c t ar 
ADD Slet 


/DtCR ADDRESS 


OKI 10 10 


01/1 A 9 
1040c 


11210 




An* 1 
AUA i 


j qv 4 di nr*^ 
/bt 1 BLOCK 




0400 


01 01 01 4 
0001 




1 




701019 


0464 


-1 9 01 0i 
1200 




1 A U 

LAM 




01 01 7 
010100 


0409 


01 7 4 7 
10047 




COntLl 




3004 


ffl il A A 

0400 


0011 




CLR 


fftl D 1 1 Ml/ 

/CL" LINK 


3005 


0467 


1000 




LDA 




7 01 01 A 
0 10 10 0 


0470 


01 4 7 fll 
0130 




roi ACL/ 

FBLOCK 




3007 


0471 


1120 




ADA I 




3010 


0472 


7774 




-3 




3011 


0473 


0471 




APO I 




3012 


0474 


6300 




JMP BACKWARD 




0013 


0475 


6243 




JMP FORWARD 




7 01 4 /I 

OB 14 






/ 






7 01 4 C 






/ 






7 < --t 

49 110 


rx a 7 A 
(04/0 


0101 4 4 
101011 


nniiT i t 
OQU T 1 T » 


CLR 


/WnJTE ROUTINE 


0 10 A / 


01477 
10 4 / / 


4A41 








3020 


0500 


0046 




SET SKIP2 




3021 


0501 


0005 




SKIP 




3022 


0502 


6635 




JMP SDATAF 


/SET DF 


3023 


0503 


1020 




LDA I 




3024 


0:504 


0027 




27 




3025 


0505 


0226 




XSK I SKIP2 


/SKIP 2 CONTROL WORDS 


3026 


0506 


0467 




SKP 





3027 0507 6515 JMP OGETIT /PREPARE TO WRITE 

3030 0510 0457 SWD /SKIP ON WORD FUG 

3031 0511 6510 JMP .-1 

3032 0512 0457 SWD /WAIT FOR FLAG TO GO DOWN 

3033 0513 6505 JMPDOUTJT+7 /DO IT AGAIN 

3034 0514 6512 JMP .-2 

3035 / 

3036 / 

3037 / 

3040 / 

3041 / 

3042 / 

3043 / 

3044 / 

3045 0515 0500 OGET I T » IOB 

3046 0516 6152 6152 /SET WRITE 

3047 0517 1020 LDA I /SET RTN JMP 

3050 0520 6522 JMP GOWRI 

3051 0521 4710 STC OUTRTN 

3052 0522 0457 GOWRI, SWD /WAIT FOR WORD FLAG 

3053 0523 6522 JMP .-1 

3054 0524 0500 IOB 

3055 0525 6154 6154 /AC TO TB 

3056 0526 0223 XSK I WCOUNT /FINISHED? 

3057 0527 0467 SKP /NOT YET 

3060 0530 6560 JMP OGETLP /GET CS 

3061 0531 0227 XSK I OATAWO /WRITTEN ALL DATA? 

3062 0532 0467 SKP /NOO 

3063 0533 6553 JMP WRILAST /WRITE 7777 

3064 0534 0002 POP 

3065 PMODE 

3066 6535 7300 CIA CLL 

3067 6536 1752 TAO I C0REL2 /GET DATA 

3070 6537 2352 ISZ C0REL2 /INCR ADDRESS 

3071 6540 6141 LINC 

3072 LMODE 

3073 0541 0017 COM /COMPUTE PARITY 

3074 0542 4545 STC TEMP0 

3075 0543 2641 ADD LPS 

3076 0544 1660 BCO I 

3077 0545 0000 TEMP0, 0 

3100 0546 4641 STC LPB 

3101 0547 2545 ADD TEMP0 

3102 0550 0017 COM 

3103 0551 6670 JMP OUTIT / SHUFFLE DATA 4WRJTE IT 

3104 0552 0000 C0REL2 » 0 

3105 0553 0011 WRILAST, CLR /WRITE 7777 WHEN THE LAST WORD IS JUNK 

3106 0554 0457 SWD /WAIT FOR FLAG TO GO DOWN JUST In CASE 

3107 0555 0467 SKP 

3110 0556 6554 JMP .-2 

3111 0557 6522 JMP GOWRI /WRITE 7777 

3112 0560 1020 OGETLP, LDA I /SET RTN JMP TO 

3113 0561 6571 JMP WRILPB /WRITE PARITY 

3114 0562 4710 STC OUTRTN 

3115 0563 1000 LDA /GET PARITY WOR 

3116 0564 0641 LPB 

3117 0565 0306 ROR 6 /ITS 6 BITS 

3120 0566 1640 BCO /XOR JT 

3121 0567 0641 LPB 

3122 0570 6670 JMP OUT I T /SHUFFLE IT GOOD 

3123 0571 0457 WRILPB, SWD /WRITE CS 

3124 0572 6571 JMP .-1 

3125 0573 0500 I OB 



3126 


0574 


6154 




6154 


/CS TO TB 


3127 


057'5 


0457 


WRIOFF 


> SWD 


/NOW WAIT TILL LAS IS OPT AND WELL 


3130 


0576 


0467 




SKP 




sm 


0577 


6575 




JMP ,-2 




3132 


0600 


0457 




SWD 


/NEXT WORD ALL SET??? 


3133 


0601 


6600 




JMP .-1 


/NOPE, WAIT 


3134 


0602 


0457 




SWQ 


/NEXT WORD THERE, WAIT TILL IT PASSES. 


3135 


0603 


0467 




SKP 




3136 


0604 


6602 




JMP .-2 


/ITS PAST, LAST WORD IS NOW OUT COMPLETEL 


$137 


0605 


1020 




LDA I 


/YEP. TURN OFF THE WRI TTERS . 


3140 


0606 


0226 




226 




3141 


0607 


0500 




IOB 




3142 


0610 


6152 




6152 




3143 


0611 


1020 


WRIOUN 


» lDA I 


/PREPARE TO WRITE NEXT BLK 


3144 


0612 


0001 




0001 




3145 


0613 


1140 




ADM 




3146 


0614 


0130 




FBUOCK 




3147 


0615 


0232 




XSK I NBLOCK 


/ALL DONE? 


3150 


0616 


0467 




SKP 


/NOT YET 


3151 


0617 


6020 




JMP EXIT 


/THATS ITJ 


3152 


0620 


0043 




SET WCQUNT 


/IN J T WCOUNT 


3153 


0621 


0041 




WR I KEY 




3154 


0622 


0235 




XSK I IBLOCK 


/FINISHED GROUP? 


3155 


0623 


6243 




JMP FORWARD 


/GO DO ITJ 


3x56 


0624 


0642 




LDF 2 




3157 


0625 


1040 




STA 




3160 


0626 


2633 




WRIBNS2000 


/NEXT BLOCK 


3161 


0627 


0011 




CLR 




3162 


0630 


2012 




ADO NBLOCK 




3163 


0631 


0017 




COM 




3164 


0632 


1040 




STA 




3165 


0633 


2634 




WRJNUMJ2000 


/REMAINING BLKS 


3166 


0634 


6020 




JMP EXIT 


/READ SOME MORE 


3167 






/ 






3170 






/ 






3171 






/ 






3172 






/ 






£173 






/ 






UfA 






/ 






3175 






/ 






3176 






/ 






3177 






/ 






3200 






/ 






3201 






SDATAF 


= . 




3202 


0635 


0000 


DAT AF , 


HIT 


/OPTION FOR EXT MEM 


3203 


0636 


6000 




JMP 0 




3204 






/ 






3205 






/ 






3206 






/ 






3207 






/ 






3210 


0637 


4643 


I N I T , 


STC TEMPI 


/COMPUTE PARITY 


3211 


0640 


1120 




ADA I 




3212 


0641 


0000 


UPB, 


0 




3213 


0642 


1660 




BCO I 




3214 


0643 


0000 


TEMPI. 


0 




3215 


0644 


4641 




STC UPB 




3216 


0645 


2643 




ADD TEMPI 


/READ SHUFFLE 


3217 


0646 


0017 




COM 




3220 


0647 


1040 




STA 




3221 


0650 


0643 




T EMP 1 




3222 


0651 


1560 




BCL I 




3223 


0652 


7700 




-77 




3224 


0653 


1120 




ADA I 





3225 0654 3012 ADD TABLE! 

3226 0655 4666 STC ADD I Nl 

3227 0656 1300 LDH /GET LEFT HALF 

3230 0657 0643 TEMP1&3777 /OF TEMPI 

3231 0660 1120 ADA I 

3232 0661 3012 ADD TABLE1 

3233 0662 4664 STC ADD I N2 

3234 0663 0011 CLR 

3235 0664 2000 ADD I N2 » ADD 0 

3236 0665 0265 RQL I 5 

3237 0666 2000 AODIN1, ADD 0 

3240 0667 6000 JMP 0 

3241 / 

3242 / 

3243 / 

3244 / 

3245 / 

3246 / 

3247 / 

3250 / 

3251 / 

3252 / 

3253 0670 1060 OUTIT, STA I /WRITE SHUFFLE 

3254 0671 0000 TEMP2. 0 

3255 0672 1560 BCL I /LOOK AT RIGHT HALF 

3256 0673 7700 -77 

3257 0674 1120 ADA I 

3260 0675 3112 ADD TABLE2 

3261 0676 4706 STC ADOUT1 

3262 0677 1300 LDH /GET LEFT HALF 

3263 0700 0671 TEMP2«3777 

3264 0701 1120 ADA 1 

3265 0702 3112 ADD TABLE2 

3266 0703 4704 STC ,+1 

3267 0704 0000 A00UT2, 0 

3270 0705 0242 ROL 2 

3271 0706 0000 ADOUTli 0 

3272 0707 0017 COM 

3273 0710 0000 OUTRTN, 0 /WRITE IT 

3274 / 

3275 / 

3276 / 

3277 / 

3300 0711 1000 LINC, LOA /LlNC TAPE HANDLER 

3301 0712 0125 ARG1 /GET UNIT 

3302 0713 0321 ROR I 1 

3303 0714 1560 BCL I 

3304 0715 7774 7774 

3305 0716 4730 STC EXUN 

3306 0717 0264 ROL I 4 /GET LINK BIT BACK 

3307 0720 1140 ADM 

3310 0721 0744 INST /ADD UNIT ONE BIT IF ITS THERE 

3311 0722 1620 BSE I 

3312 0723 0007 0007 

3313 0724 4763 STC CHECK 

3314 0725 1020 LDA I 

3315 0726 0020 0020 /EXTENDED ADDRESS FORMAT, BANK 0 

3316 0727 1120 ADA I 

3317 0730 0000 EXUN, 0 

3320 0731 0001 AXO /SET EX UNIT 

3321 0732 1000 LDA 

3322 0733 0130 ARG4 /GET BLOCK NUMBER 

3323 0734 1040 STA 



3324 


0735 


0745 




BN " 


3325 


0736 


4764 




STC CHECK+1 


$326 


0737 


4742 




STC AODR 


332 7 


0740 


0640 




LOF 0 


1330 


0741 


1020 




LOA I 


3331 


0742 


0000 


ADOR » 


0 


3332 


0743 


0023 




TMA 


3333 


0744 


0000 


INST, 


0 


3334 


0745 


0000 


BN» 


0 


3335 


0746 


1020 




LOA I 


3336 


0747 


0000 


ADO I NC i 


0000 


•3117 


0750 


1140 




ADM 


3340 


0751 


0742 




AODR 


3341 


0752 


1020 




LOA I 


3342 


0753 


0001 




1 


3343 


0754 


1140 




ADM 


3344 


0755 


0745 




BN 


3345 


0756 


0232 




XSK I NBLOCK 


3346 


0757 


0467 




SKP 


3347 


0760 


6763 




JMP CHECK 


3350 


0761 


0235 




XSK I IBLOCK 


3351 


0762 


6740 




JMP ADDR-2 


3352 






/ 




5353 






/ 




3,354 






/ 




3355 






/ 




3356 


0763 


0707 


CHECK. 


CHK 


3357 


0764 


0000 




0000 


3360 


0765 


0450 




AHE 


3361 


0766 


0000 




HLT 


3362 


07 67 


1020 




LOA I 


3363 


0770 


0001 




1 


3364 


0771 


1140 




ADM 


3365 


0772 


0764 




CHECK+1 


3366 


0773 


1440 




SAE 


3367 


0774 


0745 




BN 


31370 


0775 


6763 




JMP CHECK 


33.71 


0776 


0212 




XSK NBLOCK 


3372 


0777 


0467 




SKP 


3.373 


1000 


6020 




JMP EXIT 


3374 






/ 




3375 






/ 




3376 


1001 


0642 




LOF 2 


3377 


1002 


1040 




STA 


340.0 


1003 


2625 


BNSET, 


RDEBN12000 


3401 


1004 


0011 




clr 


3402 


1005 


2012 




ADD NBLOCK 


3403 


1006 


0017 




COM 


3404 


1007 


1040 




STA 


3405 


1010 


2626 


NUMSET » 


RQENUM ! 2000 


3406 


1011 


6020 




JMP EXIT 


3407 






/ 




3410 






/ 




3411 






/ 




3412 






/ 




3413 






/ 




3414 






/ 




3415 








LMOOE 


3416 






/ 




3417 


1012 


0000 


TABLE! . 


0 


3420 


1013 


0004 




4 


34 21 


1014 


0040 




40 


3422 


1015 


0044 




44 



/CLR OF 

/AO TMA SETUP 

/WORDS PER BLOCK 

/INCR BLOCK NUM 

/TRANSFER COMPLETE 
/DO NEXT BLOCK 

/BLOCK NUMBER 

/FINISHED? 
/NO 

/ALL DONE? 
/ ALL DONE 

/OR WRIBN!2000 

/OR WRJNUMJ2000 

INPUT CONVERSION TABLES. 



3423 


1016 


0400 


400 


3424 


1017 


0404 


404 


3425 


1020 


0440 


440 


3426 


1021 


0444 


444 


w T C r 


XV cc 


4000 




3430 


1023 


4004 


4004 


3431 


1024 


4040 


4040 


3432 


1025 


4044 


4044 


3433 


1026 


4400 


4400 


3434 


1027 


4404 


4404 


3435 


1030 


4440 


4440 


3436 


1031 


4444 


4444 


3437 


1032 


0002 


2 


3440 


1033 


0006 


6 


3441 


1034 


0042 


42 


3442 


1035 


0046 


46 


3443 


1036 


0402 


402 


3444 


1037 


0406 


406 


3445 


1040 


0442 


442 


3446 


1041 


0446 


446 


3447 


1042 


4002 


4002 


3450 


1043 


4006 


4006 


3451 


1044 


4042 


4042 


3452 


1045 


4046 


4046 


3453 


1046 


4402 


4402 


3454 


1047 


4406 


4406 


3455 


1050 


4442 


4442 


3456 


1051 


4446 


4446 


3457 


1052 


0020 


20 


3460 


1053 


0024 


24 


3461 


1054 


0060 


60 


3462 


1055 


0064 


64 


3463 


1056 


0420 


420 


3464 


1057 


0424 


424 


3465 


1060 


0460 


460 


3466 


1061 


0464 


464 


3467 


1062 


4020 


4020 


3470 


1063 


4024 


4024 


3471 


1064 


4060 


4060 


3472 


1065 


4064 


4064 


3473 


1066 


4420 


4420 


3474 


1067 


4424 


4424 


3475 


1070 


4460 


4460 


3476 


1071 


4464 


4464 


3477 


1072 


0022 


22 


3500 


1073 


0026 


26 


3501 


1074 


0062 


62 


3502 


1075 


0066 


66 


3503 


1076 


0422 


422 


3504 


1077 


0426 


426 


3505 


1100 


0462 


462 


3506 


1101 


0466 


466 


3507 


1102 


4022 


4022 


3510 


1103 


4026 


4026 


3511 


1104 


4062 


4062 


3512 


1105 


4066 


4066 


3513 


1106 


4422 


4422 


3514 


1107 


4426 


4426 


3515 


1110 


4462 


4462 


3516 


1111 


4466 


4466 


3517 




/ 




3520 




/ 




3521 




/ 





mz2 / 

352 3 / 

3524 / 

3525 / 

3526 / 
3527 

3530 
3531 

3532 EJECT 



3533 
3534 
3535 
3536 
3537 

3540 / OUTPUT CONVERSION TABLE 

3541 

3542 

3543 

3544 

3545 



3546 


1112 


0000 TABLE2 # 


0 


3547 


1113 


0400 


400 


3550 


1114 


0020 


20 


3551 


1115 


0420 


420 


3552 


1116 


0001 


1 


3553 


1117 


0401 


401 


3554 


1120 


0021 


21 


3555 


1121 


0421 


421 


3556 


1122 


1000 


1000 


3557 


1123 


1400 


1400 


3560 


1124 


1020 


1020 


3561 


1125 


1420 


1420 


3562 


1126 


1001 


1001 


3563 


1127 


1401 


1401 


3564 


1130 


1021 


1021 


3565 


1131 


1421 


1421 


3566 


1132 


0040 


40 


3567 


1133 


0440 


440 


3570 


1134 


0060 


60 


3571 


1135. 


0460 


460 


3572 


1136 


0041 


41 


3573 


1137 


0441 


441 


3574 


1140 


0061 


61 


3575 


1141 


0461 


461 


3576 


1142 


1040 


1040 


3577 


1143 


1440 


1440 


3600 


1144 


1060 


1060 


3601 


1145 


1460 


1460 


3602 


1146 


1041 


1041 


3603 


1147 


1441 


1441 


3604 


1150 


1061 


1061 


3605 


1151 


1461 


1461 


3606 


1152 


0002 


2 


3607 


1153 


0402 


402 


3610 


1154 


0022 


22 


36H 


1155 


0422 


422 


3612 


1156 


0003 


3 


3613 


1157 


0403 


403 


3614 


1160 


0023 


23 


3615 


1161 


0423 


423 


3616 


1162 


1002 


1002 


3617 


1163 


1402 


1402 


3620 


1164 


1022 


1022 


3621 


1165 


1422 


1422 


3622 


1166 


1003 


1003 


3623 


1167 


1403 


1403 


3624 


1170 


1023 


1023 


3625 


1171 


1423 


1423 


3626 


1172 


0042 


42 


3627 


1173 


0442 


442 


3630 


1174 


0062 


62 


3631 


1175 


0462 


462 



3632 1176 0043 43 

3433 1177 0443 443 

3634 1200 0063 63 

3635 1201 0463 463 

3636 1202 1042 1042 

3637 1203 1442 1442 

3640 1204 1062 1062 

3641 1205 1462 1462 

3642 1206 1043 1043 

3643 1207 1443 1443 
36,44 1210 1063 1063 

3645 1211 1463 1463 

3646 //// 

3647 / 

3650 / 

3651 //// 

3652 PMODE 

3653 / 

3654 *3500 

3655 3500 0640 
3655 3501 4040 
3655 3502 4040 
3655 3503 4224 
3655 3504 0361 
3655 3505 6255 

3655 TXT I NTRO # TEXT ZF M TC12-F W 

3656 3506 0642 

3656 H 

3657 3507 4310 
3657 3510 4310 
3657 3511 4040 
3657 3512 4014 
3657 3513 1116 
3657 3514 0324 
3657 3515 0120 
3657 3516 0557 
3657 3517 0405 
MS 7 3520 0324 
3657 3521 0120 
3/657 3522 0540 
3657 3523 0317 
3657 3524 1626 
3657 3525 0522 
3657 3526 2311 
365? 3527 1716 
3657 3530 4020 
3657 3531 2217 
3657 3532 0722 

3657 H UNCTAPE/DECTAPE CONVERSION PROGRAM 

3660 3533 0115 

3660 F 

3661 3534 4306 
3661 3535 4310 
3661 3536 4040 
3661 3537 4024 
3661 3540 1011 
3661 3541 2340 
3661 3542 2022 
3661 3543 1707 
3661 3544 2201 
3661 3545 1540 
3661 3546 2711 
3661 3547 1414 , 



3661 3550 4022 

3661 3551 2516 

3661 3552 4023 

3661 3553 2503 

3661 3554 0305 

3661 3555 2323 

3661 3556 0625 

3661 3557 1414 

3661 H THIS PROGRAM WILL RUN SUCCESSFULLY 

3662 3560 3143 
3662 3561 4017 
3662 s * 3562 1614 
3662 3563 3140 
3662 3564 1716 
3662 3565 4001 
3662 3566 4020 
3662 3567 0420 
3662 3570 5561 
3662 3571 6240 
3662 3572 0317 
3662 3573 1520 
3662 3574 2524 
3662 3575 0522 
3662 3576 4005 
3662 3577 2125 
3662 3600 1120 
3662 3601 2005 
3662 3602 0440 
3662 3603 2711 
3662 3604 2410 
3662 3605 4024 

3662 ONLY ON A PQP-12 COMPUTER EQUIPPED WITH THE 

3663 3606 1005 
3663 3607 4340 
3663 3610 2403 
3663 3611 6162 
3663 3612 5506 
3663 3613 4010 
3663 3614 0122 
3663 3615 0427 
3663 3616 0122 
3663 3617 0540 
3663 3620 1720 
3663 3621 2411 
3663 3622 1716 
3663 3623 5640 
3663 3624 4011 
3663 3625 2440 
3663 3626 2711 
3663 3627 1414 
3663 3630 4022 
3663 3631 0501 
3663 3632 0440 
3663 3633 0116 

3663 TC12-F HARDWARE OPTION, IT WILL READ AND 

3664 3634 0443 
3664 3635 4027 
3664 3636 2211 
3664 3637 2405 
3664 3640 4006 
3664 3641 2217 
3664 3642 1540 
3664 3643 2401 



3A64 


3644 


2005 


3$ 6 4 


3645 


4025 


3664 


3646 


1611 




3647 


2423 


3664 


3650 


4060 


3664 


3651 


5567 


3664 


3652 


4011 


3664 


3653 


1640 


$664 


3654 


0116 


3664 


3655 


3140 


3664 


3656 


2401 


3664 






3665 


3657 


2005 


3665 


3660 


4340 


3665 


3661 


0617 


3665 


3662 


2215 


3665 


3663 


0124 


3665 


3664 


7340 


3665 


3665 


3117 


3665 


3666 


2540 


3665 


3667 


1525 


3665 


3670 


2324 


3665 


3671 


4023 


3665 


3672 


2005 


3665 


3673 


0311 


3665 


3674 


0631 


3665 


3675 


4024 


3665 


3676 


1005 


3665 


3677 


4003 


3665 


3700 


1722 


3665 


3701 


2205 


3665 


3702 


0324 


3665 


3703 


4006 


3665 


3704 


1722 


3665 


3705 


1501 


3*65 






3666 


3706 


2456 


3666 






3:667 


3707 


4306 


3667 






3670 


3710 


4306 


3670 


3711 


4310 


3670 


3712 


2431 


3670 


3713 


2005 


3670 


3714 


4014 


3670 


3715 


1116 


3670 


3716 


0506 


3670 


3717 


0505 


3670 


3720 


0440 


3670 


3721 


2417 


3670 


3722 


4003 


3670 


3723 


1716 


3670 


3724 


2411 


3670 


3725 


1625 


3670 


3726 


0534 


3670 






3671 






3672 






3673 






3674 


7220 


0640 


3674 


7221 


0310 


3674 


7222 


0503 


3674 


7223 


1340 



WRITE FROM TAPE UNITS 0-7 IN ANY TAPE 



FORMAT I YOU MUST SPECIFY THE CORRECT FORMAT , 



HTYPE LINEFEED TO CONTINUED 

/ 

/ 

• 7220 



3674 7224 2001 

3674 7225 2211 

3674 7226 2431 

3674 TXTPAR. TEXT ZF CHECK PARITY<1 

3675 7227 7461 
3675 

3676 7230 4347 
3676 7231 4306 
3676 7232 4760 
3676 7233 4023 
3676 7234 2005 
3676 7235 0311 
3676 7236 0611 
3676 7237 0523 
3676 7240 4016 

3676 F 0 SPECIFIES NO 

3677 7241 1743 
3677 

3700 7242 4740 

3700 7243 4306 

3700 7244 4761 

3700 7245 4023 

3700 7246 2005 

3700 7247 0311 

3700 7250 0611 

3700 7251 0523 

3700 7252 4031 

3700 F 1 SPECIFIES YES 

3701 7253 0523 

3701 7254 4347 
3701 

3702 7255 4043 
3702 7256 4724 
3702 7257 3120 
3702 7260 0540 
3702 7261 1411 
3702 7262 1605 
3702 7263 4006 
3702 7264 0505 
3702 7265 0440 
3702 7266 2417 
3702 7267 4003 
3702 7270 1716 
3702 7271 2411 
3702 7272 1625 
3702 7273 0534 

3702 TYPE LINE FEED TO CONTINUED 

3703 / 

3704 7274 0640 
3704 7275 4022 
3704 7276 0501 
3704 7277 0474 
3704 7300 6440 
3704 7301 0214 
3704 7302 1703 

3704 TXTRQE , TEXT ZF REA0<4 BLOCKS 

3705 7303 1323 

3705 F 

3706 7304 4306 
3706 7305 4340 
3706 7306 4040 
3706 7307 4040 
3706 7310 4040 



3706 7311 4024 

3706 7312 0120 

3706 7313 2540 

37 06 7314 0617 

3706 7315 2215 

.3706 7316 0124 

3706 7317 7461 

3706 7320 4006 

3706 7321 2217 

3706 7322 1540 

3706 73232516 

3706 7324 1124 

370,6 TAPE FORMATS! FROM UNIT<1 

3707 7325 7461 
3707 F 
3710 7326 4306 
3710 7327 4340 
3710 7330 4040 
3710 7331 4040 
3710 7332 4040 
3710 7333 4040 
3710 7334 4023 
3710 7335 2401 
3710 7336 2224 
3710 7337 1116 
3710 7340 0740 
3710 7341 2711 
3710 7342 2410 
3710 7343 4002 
3710 7344 1417 
3710 7345 0313 

3710 STARTING WITH BL0CK<4 

3711 7346 74 64 

3711 F 

3712 7347 4306 
3712 7350 4310 
3712 7351 0617 
3712 7352 2215 
3712 7353 0124 
3712 7354 4001 
3712 7355 S656 
3712 7356 3656 
3715 7357 5620 
3712 7360 0420 
3712 7361 5570 
3712 7362 4040 
3712 7363 5062 
3712 7364 6061 
3712 7365 4027 
3712 7366 1722 
3712 7367 0423 
3712 7370 5702 
3712 7371 1417 
3712 7372 0313 

3712 HFORMAT A.....PDP-8 <201 WORDS/BLOCK) 

3713 7373 5143 

3713 * 

3714 7374 1043 
3714 7375 1040 
3714 7376 4340 
3714 7377 4040 
3714 7400 4040 
3714 7401 0256 



3714 


7402 


5656 


3714 


7403 


5656 


3714 


7404 


2004 


3714 


7405 


2055 


3714 


7406 


6162 


3714 


7407 


4050 


3714 


7410 


6460 


3714 


7411 


6040 


3714 


7412 


2717 


3714 


7413 


2204 


3714 


7414 


2357 


3714 


7415 


0214 


3714 


7416 


1703 


3714 






3715 


7417 


1351 


3715 






3716 


7420 


4310 


3716 


7421 


4310 


3716 


7422 


4040 


3716 


7423 


4040 


3716 


7424 


4040 


3716 


7425 


4003 


3716 


7426 


5656 


3716 


7427 


5656 


3716 


7430 


5617 


3716 


7431 


2410 


3716 


7432 


0522 


3716 


7433 


4040 


3716 


7434 


5020 


3716 


7435 


0420 


3716 


7436 


5571 


3716 


7437 


5461 


3716 


7440 


6054 


3716 


7441 


6165 


3716 


7442 


4027 


3716 


7443 


1124 


3716 






3717 


7444 


1043 


3717 


7445 


1040 


3717 


7446 


4040 


3717 


7447 


4040 


3717 


7450 


4040 


3717 


7451 


4040 


3717 


7452 


4040 


3717 


7453 


4040 


3717 


7454 


4040 


3717 


7455 


4040 


3717 


7456 


4040 


3717 


7457 


4040 


3717 


7460 


6660 


3717 


7461 


6040 


3717 


7462 


6162 


3717 


7463 


5502 


3717 


7464 


1124 


3717 


7465 


4027 


3717 


7466 


1722 


3717 


7467 


0423 


3717 


7470 


5702 


3717 


7471 


1413 


3717 






3720 


7472 


5143 


3720 


7473 


4034 


3720 







B POP-12 (400 WORDS/BLOCK) 



C OTHER (POP-9,10,15 WITH 



600 12-BIT WORDS/BLK) 



3721 






/ 


3722 






/ 


3723 






/ 


3724 






/ 


3725 


7474 


0640 




3725 


7475 


4027 




3725 


7476 


2211 




3725 


7477 


2405 




3725 


7500 


4024 




3725 


7501 


1005 




3725 


7502 


4022 




3725 


7503 


0523 




3725 


7504 


2514 




3725 






T 


3726 


7505 


2443 




3726 






F 


3727 


7506 


0643 




3727 


7507 


4040 




3727 


7510 


4040 




3727 


7511 


4040 




3727 


7512 


4040 




3727 


7513 


4011 




3727 


7514 


1640 




3727 


7515 


2401 




3727 


7516 


2005 




3727 


7517 


4006 




3727 


7520 


1722 




3727 


7521 


1501 




3727 


7522 


2474 




3727 


7523 


6140 




3727 


7524 


1716 




3727 


7525 


4025 




3727 


7526 


1611 




3727 


7527 


2474 




3727 








3730 


7530 


6143 




3730 








3731 


7531 


4743 




3731 


7532 


4040 




3731 


7533 


4040 




3731 


7534 


4040 




3731 


7535 


4040 




3731 


7536 


4040 




3731 


7537 


4023 




3731 


7540 


2401 




3731 


7541 


2224 




3731 


7542 


1116 




3731 


7543 


0740 




3731 


7544 


0124 




3731 


7545 


4002 




3731 


7546 


1417 




3731 


7547 


0313 




3731 








3732 


7550 


7464 




3732 






F 


3733 


7551 


4306 




3733 


7552 


4310 




3733 


7553 


0617 




3733 


7554 


2215 




3733 


7555 


0124 




3733 


7556 


4001 




3733 


7557 


5656 




3733 


7560 


5656 





TEXT 2F WRJTE THE RESULT 



IN TAPE F0RMAT<1 ON UNIKI 



STARTING AT BL0CK<4 



3733 


7561 


5620 


3733 


7562 


0420 


3733 


7563 


5570 


3733 


7564 


4040 


3733 


7565 


5062 


3733 


7566 


6061 


3733 


7567 


4027 


3733 


7570 


1722 


3733 


7571 


0423 


3733 


7572 


5702 


3733 


7573 


1417 


3733 


7574 


0313 


3733 






3734 


7575 


5143 


3734 






3735 


7576 


1043 


3735 


7577 


1040 


3735 


7600 


4040 


3735 


7601 


4040 


3735 


7602 


4040 


3735 


7603 


0256 


3735 


7604 


5656 


3735 


7605 


5656 


3735 


7606 


2004 


3735 


7607 


2055 


3735 


7610 


6162 


3735 


7611 


4050 


3735 


7612 


6460 


3735 


7613 


6040 


3735 


7614 


2717 


3735 


7615 


2204 


3735 


7616 


2357 


3735 


7617 


0214 


3735 


7620 


1703 


3735 






3736 


7621 


1351 


3736 






3737 


7622 


4310 


3737 


7623 


4310 


3737 


7624 


4040 


3737 


7625 


4040 


3737 


7626 


4040 


3737 


7627 


4003 


3737 


7630 


5656 


3737 


7631 


5656 


3737 


7632 


5617 


3737 


7633 


2410 


3737 


7634 


0522 


3737 


7635 


4040 


3737 


7636 


5020 


3737 


7637 


0420 


3737 


7640 


5571 


3737 


7641 


5461 


3737 


7642 


6054 


3737 


7643 


6165 


3737 


7644 


4027 


3737 


7645 


1124 


3737 






3740 


7646 


1043 


3740 


7647 


1040 


3740 


7650 


4040 


3740 


7651 


4040 


3740 


7652 


4040 



HFORMAT A.....P0P-8 <201 WORDS/BLOCK) 
H 



B POP-12 (400 WORDS/BLOCK) 



C. ..OTHER (PDP-9,10,15 WITH 



■ 3740 


7653 


4040 








3740 


7654 


4040 








3740 


7655 


*Ho40 








3740 


7656 


4040 








0 / 40 


765/ 


4040 








3740 


7660 


4040 








0/40 


"7 £ £ "1 

7661 


4 01 4 01 

4 040 








T7 4 0I 

0/10 


7i£9 
/OOiC 


OOOB 








3740 


T £ £ "Z 

7660 


A 01 >l 01 








i ~t a oi 
0 /40 


•7 £ A A 


T7i 7 








3740 


7665 


2204 








3740 


7666 


2357 








3740 


7667 


0214 








3740 


7670 


1703 








3740 






H 




600 WORpa/BLOCK > 


3741 


7671 


1351 








3741 


7672 


4340 








; 3741 


7673 


3400 








3741 












"1 "7 A *i 

v 7 42 






/ 






3743 






/ 






3,744 


7674 


7420 


A ilCUD'1 

ANoWRl f 


7400 


/NUnHtH OF BLOCKS 


t •? a e 


<i£7C 

7675 


01 fjl ni OI 

0000 




01 01 01 


/TU Bt Kfc.AU IN 


0/4 6 


7676 


0074 




0074 


/ 4 UCTAU U 1 1» I Ts 


3747 


76 / / 


0074 




oi oi *7 4 
0071 


/r UnnA r wflAn 1 




7700 


0074 




01 01 "7 A 

0074 


/IIMTT Ml 1M a C B I 
/UN 1 f NUPIOC." » 


3751 


7701 


oi 01 m Oi 
101300 




0000 


/aiAKiilMb BLOCK 


0/52 


7702 


(71 01 01 01 
10 1010(0 




01 01 01 Ol 

100100 


/Ml 1 M Qp D t 

/NUHBt"! 


.0/50 


7700 


0100 




1 A 01 01 

0400 


/ i nn T O ALL I • 


v, 0/3 4 


7 "7 (91 4 
/ 7 0** 


7 A 0101 


A MC U DO 


74 0101 
/ 4010 


f nnj It PUnrlMlj 


: 0>/,55 


T *9 OI R 

7705 


7 Amen 
/ 4 10 10 




"7 y! 01 01 

74010 


/unit MiiMnrot 

/ UN i 1 NUnOtH I 
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APOINC 6747 
ADDlNl 6666 
AO0IN2 6664 
AOOR 6742 
AO OUT! 6706 
ADOUT2 6704 
ACET 6121 
ANSWR1 7674 
ANSWR2 7704 
ANSWR3 7711 
ARGl 6125 
ARG2 6126 
ARG3 6127 
ARC 4 6130 
ARG5 6131 
BACK W A 6300 
BEST 6002 
BETAR 6004 
BN 6745 
BNSET 7003 
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CHECK 6763 
COMMON 6105 
COREL1 6347 
C0REL2 6552 
COUNT0 6010 
COUNT1 6011 
OATAF 6635 
DATAWD 6007 
DEEP 6331 
OINIT 6350 
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QAW 5625 
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QAX 5537 

QAY 5525 

QAi 5414 

QPAR 4167 

RDEAGN 6460 

ROEBN 4625 

RDEDUN 6431 

RDEFU 4622 

RDEKEY 6070 

RDELNG 4624 

RDELOC 4623 

RDENUM 4626 

RDLTAN 6066 
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SOATAF 0635 
SETUP 4210 
SIZE 6132 
SKIP 6005 
SKIP2 6006 
SWD 0457 
SWITCH 6016 
TABLE1 7012 
TABLE2 7112 
TASK 6001 
TEMP 6133 
TEMP0 6545 
TEMPI 6643 
TEMP2 6671 
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TXTWRI 7474 
UNITL1 6252 
UNPAR 4173 
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UNWRIT 4127 
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WRILNG 4632 
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Digital Equipment Corporation maintains a continuous effort to improve the quality and usefulness of its 
publications. To do this effectively we need user feedback - your critical evaluation of this manual. 

Please comment on this manual's completeness, accuracy, organization, usability, and readability. 



Did you find errors in this manual? 



How can this manual be improved? 



DEC also strives to keep its customers informed of current DEC software and publications. Thus, the following period- 
ically distributed publications are available upon request. Please check the appropriate boxes for a current issue of the 
publication(s) desired. 

Q Software Manual Update, a quarterly collection of revisions to current software manuals. 
Q User's Bookshelf, a bibliography of current software manuals. 

Q Program Library Price List, a list of currently available software programs and manuals. 

Please describe your position. 

Name Organization ' ; 

Street Department 



City 



State 



Zip or Country 
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HOW TO OBTAIN SOFTWARE INFORMATION 



Announcements tor new and revised software, as well as programming notes, software problems, and documenta- 
tion corrections are published by Software Information Service in the following newsletters. 



Digital Software News for the PDP-8 Family- 
Digital Software News for the PDP-9/ 1 5 Family 
PDP-6/PDP- 10 Software Bulletin 



These newsletters contain information applicable to software available from Digital's Program Library. 



Please complete the card below to place your name on the newsletter mailing list. 



Questions or problems concerning DEC Software should be reported to the Software Specialist at your nearest DEC 
regional or district sales office. In cases where no Software Specialist is available, please send a Software Trouble 
Report form with details of the problem to: 

Software Information Service 
Digital Equipment Corporation 
146 Main Street. Bldg. 3-5 
Maynard, Massachusetts 01754 

These forms, which are available without charge from the Program Library, should be fully filled out and accompa- 
nied by teletype output as well as listings or tapes of the user program to facilitate a complete investigation. An 
answer will be sent to the individual and appropriate topics of general interest will be printed in the newsletter. 

New and revised software and manuals. Software Trouble Report forms, and cumulative Software Manual Updates 
are available from the Program Library. When ordering, include the document number and a brief description of 
the program or manual requested. Revisions of programs and documents will be announced in the newsletters and 
a price list will be included twice yearly. Direct all inquiries and requests to: 

Program Library 
Digital Equipment Corporation 
146 Main Street, Bldg. 3-5 
Maynard, Massachusetts 01754 

Digital Equipment Computer Users Society (DECUS) maintains a user Library and publishes a catalog of programs 
as well as the DECUSCOPE magazine for its members and non-members who request it. For further information 
please write to: 

DECUS 

Digital Equipment Corporation 

146 Main Street 

Maynard, Massachusetts 01754 



Send Digital's software newsletters to: 

Name 

Company Name 
Address 



My computer is a 



My system serial number is 



PDP-8/I □ PDP-8/L □ 

LINC-8 O PDP-12 O 

PDP-9 □ PDP-15 □ 

PDP-10 □ OTHER □ 

_____________ (if known) 



(zip code) 
Please specify 
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